Excelシートのコントロールをプログラムから削除したい

質問

Excel2003を使用しています。

シート上にテキストボックスがいくつか配置されています。
そのコントロールのTextプロパティの値は以下のように取れると思います。
Sub main()
Dim aaa As Variant
For Each aaa In ActiveSheet.OLEObjects
MsgBox (aaa.Object.Text)
Next
End Sub
この場合に、Textが"あいう"だったら、
そのコントロールを削除したいのですが、
どのように削除処理を書いたら良いのかが、分かりませんでした。

何か方法をご存知でしたら、教えてください。
よろしくお願い致します。

回答No.1

n-jun · ベストアンサー

Sub main()
Dim aaa As Variant
For Each aaa In ActiveSheet.OLEObjects
If aaa.Object.Text = "あいう" Then aaa.Delete
Next
End Sub

こんな感じの事？

お礼

まさにこれをやりたかったのです。
うまく調べられず困っておりました。
ありがとうございました。