摘要：Sub test()Dim rg As Range, shp As ShapeRem Rem 清除图形对象For Each shp In ActiveSheet.Shapesshp.DeleteNextRem Rem 按名称插入图片Rem 下行代码，根据A列开始循环处理 Rem 遇到错误继续执行 C 阅读全文