カテゴリー
キーワード

EXCEL VBA シート上のドロップダウンリストだけを全て削除する

エクセルで、シート上にあるコントロール(オブジェクト)で、ドロップダウンリストだけを全て削除するマクロの書き方を、長い間探していたのだけれど、やっとやり方が分かったので覚書き
スポンサーリンク
スポンサーリンク
Sub ドロップダウンリストを全て削除()
Dim MyObj As Object
For Each MyObj In ActiveSheet.Shapes
If MyObj.Type = 8 Then MyObj.Delete
Next
End Sub

全てのシートのオブジェクトを削除する場合
Sub 全てのシートのドロップダウンリストを削除()
Dim MyObj As Object
For i = 1 To Worksheets.Count
Sheets(i).Select
For Each MyObj In ActiveSheet.Shapes
If MyObj.Type = 8 Then MyObj.Delete
Next
Next
End Sub



スポンサーリンク
スポンサーリンク

記事をシェアする