【エクセルマクロ】コマンドボタン(マクロボタン)以外を削除:コピペで使えるコード

vba-コマンドボタン以外削除-アイキャッチ ExcelVBA

エクセルマクロで、コマンドボタン以外を削除する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で挿入したものは、削除します。


 

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

【エクセルマクロ】クリックしたテキストボックス図形の色変更:動画あり
...

 

「プログラマーの本気がExcelを覚醒させる 超絶ExcelVBA」
ExcelVBAでワンランクアップできる書籍
具体的で応用が利く技をたくさん掲載