【一次刪除工作表內所有圖片/圖形】 Sub DeleteAllShapes()          Dim shp As Shape     For Each shp In ActiveSheet.Shapes         shp.Delete     Next ...