オブジェクトの複数選択について

質問

excel2003にて、複数のページにあるオブジェクトを削除したいのですが、コンボボックス、チェックボックス、オプションボタンといくつか種類があるなかで、コンボボックスのみ、全て選択して削除ということができますか？

範囲で選択もできるのですが、オブジェクトが混在しているため、
スムーズにいきません。

回答No.1

merlionXX · ベストアンサー

VBAでよければ以下で出来ます。

コンボボックスがコントロールツールボックスから挿入したOLEオブジェクトの場合

Sub test01()
For Each ws In Worksheets
For Each ob In ActiveSheet.OLEObjects
If ob.Name Like "ComboBox*" Then
ob.Delete
End If
Next ob
Next ws
End Sub

フォームのドロップダウンの場合

Sub test02()
For Each ws In Worksheets
ws.DropDowns.Delete
Next ws
End Sub

標準モジュールにコピペしてから実行してください。

お礼

早速ありがとうございます。

実行してみましたら、きれいに消すことができました。
ありがとうございました。