2

クエリされた各結果に基づいて、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
4

1 に答える 1

1

user1466660 によると、

セル32,768で発生したエラーは、再キャストによって修正されました。

Dim xTop As Integer 

なので

Dim xTop As Long

Scott Holtzman が指摘したように、整数変数は -32,768 から 32,768 までの値しか保持できません。このため、Jimmy Pena は、変数をAs Long別の方法で使用する必要があることをマルコの設計者が認識していない限り、変数をキャストすることを推奨しています。

于 2012-07-27T17:47:58.763 に答える