使用VBA批量向Excel插入图片

好久之前学的VBA,今天终于派上点用处：

任务：向excel的列中插入700多张图片，并且每张图片只占一个单元格，幸运的是我的图片尺寸都一样。

首先使用宏：

Sub 宏1()
'
' 宏1 宏
    Range("E2").Select
    ActiveSheet.Pictures.Insert("E:\cc\QQPCMgr\11.0.16779.224\BeginnersGuide.png" _
        ).Select

End Sub

这个代码插入的是图片链接，也就是本地的图片必须保存在链接路径，一旦把excel复制给别人或者保存图片的链接修改，就无法准确显示；

第二，上面的方法显然不是我们想要的；

打开资源管理器，找到Shapes.AddPicture(Filename As String, LinkToFile As MsoTriState, SaveWithDocument As MsoTriState, Left As Single, Top As Single, Width As Single, Height As Single)

(1)filename: 要插入的图片路径；

(2)linkToFile: 是否要保持链接状态，肯定不需要对于我来说；

(3)SaveWithDocument:和文件一起保存，需要的；

(4)Left:距离excel左边距离；

(5)Top:距离excel上边框距离；

(6)Width:图片在excel文件中的宽度；

(7)Height:图片在excel中的高度。

最后注意一点：Addpicture后面的参数不能放在括号里，就是说不需要括号，用python的要改改习惯。