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

ワークシート上の全てのワークシートを削除するには、For Each ... Next でオブジェクトを探しShapeオブジェクトに格納します。格納された変数に対し、Deleteメソッドで削除します。

Excel実行画面

Sheet1に、オブジェクト削除VBAを実行するコマンドボタンを配置します。
VBA実行コマンドボタンの配置

Sheet2に下記の各種オブジェクトを配置しました。

コマンドボタン
コンボボックス
クリップアート
図形
グラフ
ワードアート

オブジェクトを削除するVBAコードを入力したVBE画面です。

Excel VBAコード

Private Sub CommandButton1_Click()
    Dim tobj As Shape

    'ワークシート(Sheet2)の全オブジェクト数をループ
    For Each tobj In Worksheets("Sheet2").Shapes
        'オブジェクトを削除
        tobj.Delete
    Next
End Sub

[関連リンク］

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します