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

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

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

No.1 ベストアンサー 回答者： merlionXX 回答日時： 2009/08/06 12:53

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

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

この回答へのお礼

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

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

お礼日時：2009/08/07 10:36