批量照片自动插入不再是难题,一键全插入VBA代码如下: OptionExplicit SubInsertPicture() DimMyShapeAsShape DimrAsInteger DimcAsInteger DimPicPathAsString DimPicrngAsRange WithSheet1 ForEachMyShapeIn.Shapes IfMyShape.Type=13Then MyShape.Delet