【エクセルマクロ】コマンドボタン(マクロボタン)以外を削除する

エクセルマクロで、コマンドボタン以外を削除するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

コマンドボタン以外を削除

以下のマクロを実行すると、マクロボタン以外を一括削除します。

Sub 図形のマクロボタン以外を消去()

Dim myshape As Shape

    'すべてのオブジェクトをループ
    For Each myshape In ActiveSheet.Shapes
    
        'マクロボタン（フォームコントロール）だったら
        If myshape.Type <> msoFormControl Then
        
            '図形を削除
            myshape.Delete
        End If
    Next
    
End Sub

マクロ実行前

シート内に、フォームコントロール（マクロボタン）や図、図形があります。

マクロ実行後

マクロボタン以外を、まとめて削除します。

「フォームコントロール」と「ActiveXコントロール」のボタンは、

見た目が似ているので、念のため補足です。
 

フォームコントロールで挿入したものは、削除されません。

ActiveXで挿入したものは、削除します。

この記事がお役に立ちますと幸いです。
 

・【エクセルマクロ】図形処理を自動化まとめ
 

【エクセルマクロ】図形処理を自動化：超便利7選

...

kirinote.com

2022.12.18