クエリされた各結果に基づいて、Excel シートに画像を追加しています。1000 件の結果 (それぞれが新しい行) を返すクエリを試してみましたが、関連する画像は 405 件しか表示されませんでした。シートに最大数の写真がありますか、それとも何か間違っていますか?
Sub insertLocalPicture(localPicFileDir As String, PictureFileName As String)
Dim pic As Shape
Dim xTop As Integer
xTop = ActiveCell.Top + 1
Set pic = ActiveSheet.Shapes.AddPicture(localPicFileDir + PictureFileName + ".jpg", msoFalse, msoTrue, 0, 0, 100, 100)
With pic
.Top = xTop
.Left = 0
.Width = 107
.Height = 80
End With
Set pic = Nothing
End Sub