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

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

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

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

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

1. [開発] > [デザインモード] をクリックして、デザインモードを有効にします。スクリーンショットをご覧ください：

2. コマンドボタンのいずれかを選択し、Ctrl + A キーを押して現在のワークシート内のすべてのボタンを選択します。

3. 削除キーを押して、選択したすべてのボタンを削除します。

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

VBAコードを使用して、すべてのボタン（フォームコントロールボタンとコマンドボタンを含む）を削除

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

1. ボタンを削除したいワークシートを開き、Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを開きます。

2. Microsoft Visual Basic for Applications ウィンドウで、[挿入] > [モジュール] をクリックし、以下の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. ボタンを削除したいワークシートを開き、Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを開きます。

2. Microsoft Visual Basic for Applications ウィンドウで、[挿入] > [モジュール] をクリックし、以下の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でコマンドボタンを使って指定されたセルの値を変更するにはどうすればよいですか？