将图像添加到工作表时达到了任意限制

我已经根据每个查询结果将图像添加到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 

Answer 1

根据user1466660，

单元 32,768发生的错误是通过重新sorting来修复的

 Dim xTop As Integer 

如

 Dim xTop As Long 

正如Scott Holtzman所指出的那样，整型variables只能保存-32,768和32,768的值。 出于这个原因，吉米·佩纳build议将variables铸造As Long除非马科devise师知道他们应该以不同的方式使用。