エクセルVBAで同名オブジェクトの全削除

お世話になります。よろしくお願いします。

環境　画面→VB6.0
　　　帳票→EXCEL2000

VB画面からデータをエクセルVBAに渡して、帳票を作成しています。

帳票に同名の四角形オブジェクトを複数個配置しています。

VB画面の指示で、この同名のオブジェクト全てを削除
したいのですが、行き詰ってしまいました。

オブジェクトが存在するかどうかをチェックすることができれば、削除可能だと思うのですが・・・
また、この他にも解決方法等ありましたらご教授下さい。

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2006/07/11 11:21

For Each Shap In ActiveSheet.Shapes

Next

のループで見つける事が出来ます。
プロパティを参照すると、オートシェイプの種類も判定できます。
詳しくは、エクセルＶＢＡのヘルプ等を参考にしてください。

http://www12.plala.or.jp/nombo/vba.html#O2

この回答へのお礼

早速の回答ありがとうございます。
解決しました。ありがとうございました。

お礼日時：2006/07/11 11:53