假设图片有100张，图片格式为“.jpg\"，图片放在”D:\\PICTURE“中，要放入图片的名称写在A1到A100中(不含后缀名)，图片插入到B1到B100的单元格。代码如下：
Sub插入图片()
DimIAsInteger
ForI=1To100
Cells(I;
2).Select
ActiveSheet.Pictures.Insert\"D:\\PICTURE\\\"&Cells(I,1)&\".jpg\"
NextI
EndSub
微信公众号
客服微信号
还没人评论，快来抢沙发~