VBA～全ての図形オブジェクトを一括で消去しよう～Excel

VBAでシート上の全ての図形オブジェクトを消去したい場合はDrawingObjects.Deleteメソッドを使います。

アクティブシート

下のコードを実行するとアクティブシートの全ての図形オブジェクトが消去されます。

Sub test1()

ActiveSheet.DrawingObjects.Delete

End Sub

指定したシートの図形オブジェクトを消去

シートを指定するときはWorksheets("シート名")で指定できます。

下のコードを実行するとSheet2の全ての図形オブジェクトが消去されます。

Sub test2()

Worksheets("Sheet2").DrawingObjects.Delete

End Sub

ブックを指定して色を設定

ブックを指定するときはWorkbooks("ブック名")で指定できます。

Book1.xlsxというブックが開いた状態で下のコードを実行するとBook1.xlsxのSheet1の全ての図形オブジェクトが消去されます。

Sub test3()

Workbooks("Book1.xlsx").Worksheets("Sheet1").DrawingObjects.Delete

End Sub