【簡単VBAプログラミング】すべてのオートシェイプを消去する

Excelにあるすべての図形を消去するためのマクロです。実行するとすべて消えますので注意してください。

すべてのオートシェイプを消去する

Sub main()
Dim shp As Shape
 For Each shp In ActiveSheet.Shapes
  shp.Delete
 Next shp
End Sub

コメント

タイトルとURLをコピーしました