シート上のオブジェクトを全て削除する

シート上にある図形などのオブジェクトを全て削除したい場合に使用します。

Sub Sample()
    ActiveSheet.DrawingObjects.Delete
End Sub

Sub Sample()

ActiveSheet.DrawingObjects.Delete

End Sub

シート上にオブジェクトが存在しなくてもエラーとはなりませんが、存在する場合のみ削除処理を行いたい場合は下記のようにします。

Sub Sample()
    If ActiveSheet.DrawingObjects.Count > 0 Then
        ActiveSheet.DrawingObjects.Delete
    End If
End Sub

Sub Sample()

If ActiveSheet.DrawingObjects.Count > 0 Then

ActiveSheet.DrawingObjects.Delete

End If

End Sub

※注意：ボタンなどのフォームコントロールも削除されます。