エクセルマクロVBA サンプルコード辞書
トップページ（目次）557.すべてのオブジェクトを削除する
＜実行前後＞
→
Sub すべてのオブジェクトを削除する()
For Each オブジェクト In ActiveSheet.Shapes
オブジェクト.Delete
Next
End SubSub すべてのオブジェクトを削除する()
For Each オブジェクト In ActiveSheet.Shapes
オブジェクト.Delete
Next
End Sub