サンプルプログラムでエラーが出てしまいます、対処法を教えて下さい。

質問

Sub test写真の連続挿入()
　　Dim myDir As String
　　Dim myFile As String
　　Dim i As Integer
　　Dim n As Integer
　　n = 10
　　myDir = "D:\写真\"
myFile = Dir(myDir, vbNormal)
　　Application.ScreenUpdating = False
　　Do Until myFile = ""
　　If myFile <> "." And myFile <> ".." Then
　　If (GetAttr(myDir & myFile) And 16) <> 16 Then
　　i = i + 1
　　With ActiveSheet.OLEObjects("Image" & i)
　　　.Object.PictureSizeMode = 3
　　　.Object.Picture = LoadPicture(myDir &myFile)
　　End With
　　If i = n Then Exit Do
　　End If
　　End If
　　myFile = Dir
　　Loop
　　Application.ScreenUpdating = True
End Sub
このWith ActiveSheet.OLEObjects("Image" & i)の行でエラーが出てしまいます、対処法を教えて下さい。（ 実行時エラー'1004'OLEObjects プロパティを取得できません）

回答No.1

watabe007

アクティブシート上のイメージコントロールに写真を貼り付ける様になっているので
写真の数だけイメージコントロールが必要です。
[表示]-[ツールバー]-[コントロールツールボックス]-[イメージ]

お礼

ありがとうございました。

補足

元のプログラムのIf (GetAttr(myDir & myFile) And 16) <> 16 Then・・・の行の１６、１６はなにを意味するのでしょうか。低レベルの質問ですが教えて下さい。