【一次刪除工作表內所有圖片/圖形】
Sub DeleteAllShapes()Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Delete
Next shp
End Sub
相關課程：
章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※
2019-10-23
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Delete
Next shp
End Sub
相關課程：
章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
5
章老師的電腦小講堂: 〔VBA〕Shapes.Delete-一次刪除所有圖片/圖形--v035
【一次刪除工作表內所有圖片/圖形】 Sub DeleteAllShapes() Dim shp As Shape For Each shp In ActiveSheet.Shapes shp.Delete Next ...