VBA ボタン 削除 マクロ

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

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

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

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

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

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

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

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

フォームコントロールボタンとコマンドボタンを含むすべてのボタンを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. Press the F5 key to run the code. Then all buttons including form control buttons and command buttons are removed from current worksheet immediately.

Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

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

• Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
• Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
• Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
• Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.

Read More... Free Download... Purchase... 

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

• Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
• Open and create multiple documents in new tabs of the same window, rather than in new windows.
• Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!

Read More... Free Download... Purchase...