VBA Windows アプリケーション プログラミング

[VBA] テキストボックスなどをまとめて削除する --- ActiveSheet.Shapes.Count

Excelで表についているたくさんの説明的なテキストボックスを一つずつ削除するのは面倒ですよね。テキストボックスなどオートシェイプを一括削除する、ExcelVBAマクロです。

マクロとして保存しておくほどでもないので、必要に応じてAlt+F11でVBEを起動して入力してワンライナー的に実行しています。

Sub テキストボックスなどをまとめて削除する()
    Do While ActiveSheet.Shapes.Count > 0
        ActiveSheet.Shapes(1).Delete
    Loop
End Sub