Excelですべてのボタンまたはコマンドボタンを削除するにはどうすればよいですか？

この記事では、Excelのアクティブシートからすべてのフォームコントロールボタンまたはコマンドボタンを削除する方法について説明します。

フォームコントロールボタンとコマンドボタンを含むすべてのボタンをすべて選択して削除します
フォームコントロールボタンとコマンドボタンを含むすべてのボタンをVBAコードで削除します
VBAコードを含むすべてのフォームコントロールボタンまたはコマンドボタンを削除します

フォームコントロールボタンとコマンドボタンを含むすべてのボタンをすべて選択して削除します

アクティブなワークシートからすべてのボタン（フォームコントロールボタンとコマンドボタンを含む）を削除するには、次の手順を実行してください。

1.をクリックしてデザインモードを有効にします Developer > デザインモード。 スクリーンショットを参照してください：

2.コマンドボタンのXNUMXつを選択し、 Ctrlキー + A 現在のワークシートのすべてのボタンを選択するためのキー。

3。 プレス 削除 選択したすべてのボタンを削除するには、キーを押します。

Note：このワークシートに他のオブジェクトがある場合は、それらも選択されます。

フォームコントロールボタンとコマンドボタンを含むすべてのボタンをVBAコードで削除します

さらに、以下のVBAスクリプトを適用して、Excelの現在のワークシートからすべてのボタンを削除できます。

1.削除するボタンが含まれているワークシートを開き、を押します。 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、次に、以下のVBAコードを[コード]ウィンドウにコピーします。

VBAコード：アクティブシートからすべてのボタンを削除します

Sub Clear_ButtonsActiveSheet()
    Dim I As Long
    Dim xOLE As Object
    On Error Resume Next
    ActiveSheet.Buttons.Delete
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub

3。 プレス F5 キーを押してコードを実行します。 その後、フォーム コントロール ボタンやコマンド ボタンを含むすべてのボタンが現在のワークシートから直ちに削除されます。

VBAコードを含むすべてのフォームコントロールボタンまたはコマンドボタンを削除します

すべてのフォーム コントロール ボタンまたはすべてのコマンド ボタンをアクティブ シートから削除するだけの場合。 これを実現するには、以下の VBA コードを試してください。

1.削除するボタンが含まれているワークシートを開き、を押します。 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、次に、以下のVBAコードを[コード]ウィンドウにコピーします。

VBA コード: アクティブ シートからすべてのフォーム コントロール ボタンを削除します

Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

VBA コード: アクティブ シートからすべてのコマンド ボタンを削除する

Sub Clear_ButtonsActiveSheet()
    Dim xOLE As Object
    On Error Resume Next
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub

3。 プレス F5 コードを実行するためのキー。

その後、すべてのフォーム コントロール ボタンまたはすべてのコマンド ボタンが現在のワークシートから直ちに削除されます。

関連記事：

• Excelのコマンドボタンで空白の新しい行を自動的に挿入するにはどうすればよいですか？
• コマンドボタンを使用してアクティブなワークシートをExcelでPDFファイルとして保存するにはどうすればよいですか？
• Excelのコマンドボタンで（現在の）日付と時刻を更新または挿入するにはどうすればよいですか？
• コマンドボタンを使用してExcelで指定したセル値を変更するにはどうすればよいですか？