照片批量自动插入
批量照片自动插入不再是难题，一键全插入VBA代码如下：
OptionExplicit
SubInsertPicture()
DimMyShapeAsShape
DimrAsInteger
DimcAsInteger
DimPicPathAsString
DimPicrngAsRange
WithSheet1
ForEachMyShapeIn.Shapes
IfMyShape.Type=13Then
MyShape.Delet
下载地址
用户评论
