Question

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

根据用户1466660，

在 单元格 32,768 时发生的错误通过重铸来修复

Dim xTop As Integer

作为

Dim xTop As Long

正如Scott Holtzman所指出的，整数变量只能保持-32,768和32,768的值。出于这个原因，Jimmy Pena建议变量As Long，除非marco设计师知道它们的使用方式不同。

将图像添加到工作表是一个任意限制

1 个答案: