如何使用VBA向指定单元格批量插入图片

需求:1.大量的图片需要插入指定单元格,2,单元格的位置范围需求需要定制.

思路:图片文件命名采用数字升序命名,方便变量,单元格提前设置好行高和列宽,代码如下:

Sub 多行多列插入图片()

'向20行,5列单元格依次插入图片

n = 1
For x = 1 To 20
For y = 1 To 5
Set cel = Cells(x, y)
pic = ("C:\图库\" & n & ".png")
Sheet1.Shapes.AddPicture pic, True, True, cel.Left, cel.Top, cel.Width, cel.Height
n = n + 1
Next y
Next x

End Sub