ＶＢＡでワークシートの図形をすべて選択したい！

ＶＢＡのヘルプでは

Set myDocument = Worksheets(1)
myDocument.Shapes.SelectAll
Set sr = Selection.ShapeRange

と書いてありましたが、メモリ不足で処理できません。
何か良い方法ないでしょうか？

最終的にワークシート上の図形をすべて削除したいのです。ＶＢＡではどうするのか教えてください！
ＥＸＣＥＬ２０００です。

No.1 ベストアンサー 回答者： eipu 回答日時： 2003/08/02 02:14

下記の様な感じでどうでしょう？

ただし、下記では、図形に限らず
sheet上のコントロールまで削除されちゃいます。
図形のみに絞りたい場合はnameを取得して
if文で判定してやれば良いかと。


Sub ObjectDelete()
Dim lObjectCt As Long
Dim lOIndex As Long

lObjectCt = Worksheets("Sheet1").Shapes.Count

For lOIndex = lObjectCt To 1 Step -1
Worksheets("Sheet1").Shapes.Item(lOIndex).Delete
Next
End Sub

この回答へのお礼

できました！詳しい説明ありがとうございました！
図形の名前をしてせずにできる方法を探していたので、この方法でバッチリできました。ありがとうございました！

お礼日時：2003/08/02 08:34

No.2 回答者： imogasi 回答日時： 2003/08/02 07:17

Sub test01()

Worksheets("sheet1").DrawingObjects.Select
'Selection.Delete
End Sub
Worksheets("sheet1").DrawingObjects.Select
でオートシェイプやコントロール全てが小さい□（四角）が２－８個でる、デザインモード状態になりましたが。
上記は'を取り除くと、すべて図形を抹消のコードになります。
ただ私のテストでの図形の種類・数のバラエティが少なかったので、terakuraさんの方でやって見てください。

この回答への補足

回答ありがとうございます。
’を取り除いてやってみました。見事削除したい図形はすべて選択され、削除できました。ただ、その後に、中断モードでは実行できないというメッセージが出てきてしまいます。
このメッセージが出てこないようにするには・・・？と悩んでいます。大変申し訳ありませんが、もし分かれば教えて下さい。

補足日時：2003/08/02 08:16

この回答へのお礼

先程補足しましたが、できました！大変申し訳ありません。ステップインで進めていくと、メッセージが出るようです。通常に実行したら何も問題なく実行できました！ずっと悩んでいたのに、たった２行でできるなんて・・・！
本当にありがとうございました！

お礼日時：2003/08/02 08:31