ExcelVBA シート上に配置された不要なボタンを自動的に削除する方法

以下のようなシーンで利用で表示します。

1.古いボタンを削除
作業フローの変更に伴い、不要になったボタンを削除する。

2.動的にボタンを生成して削除
VBAで生成したボタンを、作業完了後に自動的に削除する。

3.整理整頓
シートをすっきりさせるために、ボタンをまとめて削除する。

Excel VBA ボタン 削除｜使い方とポイント

Option Explicit

Sub DeleteSpecificButton()
    Dim btn As Object
    On Error Resume Next
    ' シート上の特定のボタンを削除
    Set btn = ActiveSheet.Shapes("Button1") ' ボタン名を指定
    If Not btn Is Nothing Then
        btn.Delete
        MsgBox "ボタン 'Button1' を削除しました。"
    Else
        MsgBox "指定したボタンが見つかりませんでした。"
    End If
    On Error GoTo 0
End Sub

動的に作成したボタンを削除する

Option Explicit

Sub AddAndDeleteButton()
    Dim ws As Worksheet
    Dim btn As Object

    ' シートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' ボタンを追加
    Set btn = ws.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
                                Left:=100, Top:=50, Width:=100, Height:=30)
    btn.Name = "DynamicButton"
    MsgBox "ボタンを追加しました。"

    ' ボタンを削除
    btn.Delete
    MsgBox "ボタンを削除しました。"
End Sub

ExcelVBAの「ボタン 削除」は、不要なボタンを整理してシートの見た目や使いやすさを向上させるために役立ちます。特定のボタンを削除する場合でも、すべてのボタンをまとめて削除する場合でも、目的に応じた方法を選びましょう。