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

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

Excel Tipsメニューに戻る

スポンサーリンク



Excel実行画面

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

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

スポンサーリンク



オブジェクトを削除するVBAコードを入力したVBE画面です。
オブジェクトを削除する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


[関連リンク]

スポンサーリンク






Excel Tipsメニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved