Excel VBA 根据图片名称插入对应图片

Sub insertpic() '根据图片名称插入对应图片 Dim r As Long, i As Long Dim path As String r = ActiveSheet.[a65536].End(xlUp).Row path = "E:\家具图片\A客厅"       '修改图片所在文件夹路径 For i = 1 To r     If Dir(path & "\" & ActiveSh

>>阅读原文<<