めんどくさいんですけど・・・(T_T)

質問

エクセルで複数のオートシェイプの一斉削除の方法を
どなたか教えていただけませんでしょうか・・・

３０個ほどの小さいオートシェイプを削除しなきゃならないのです。

宜しくお願い致します。

回答No.1

noname#9284 · ベストアンサー

30個のオートシェイプがすべてのオブジェクトでしたら（つまり他にはオブジェクトがない状態）
Ctrlを押しながらGキーを押し、「セル選択」ボタンを押して「オブジェクト」をオンにしてOKします。
するとオブジェクト全部が選択されますのでDeleteしてください。

また30個のオートシェイプがオブジェクトの中の一部であった場合は
表示→ツールバー→図形描画で図形描画ツールバーを出し、
白い矢印ボタンを押して、必要なだけのオートシェイプをドラッグによって囲んでください。
囲んでいる間に点線が表示されますので、
必要なオブジェクトがまるまる入るだけ余裕を持って囲んでください。
先ほどと同じように複数のオートシェイプが選択されますのでDeleteしてください。

また、配置が複雑で囲む事ができない場合ですが、
Shiftキーを押しながら必要なオートシェイプをクリックして選択していってください。

お礼

お～！素晴らしい！感激いたしました。
今までちまちま削除しておりましたので
これからは、一発処理で助かります。

有難うございました。

回答No.2

imogasi

あるシートのオートシェイプをすべて削除するなら
Sub test01()
ActiveSheet.DrawingObjects.Delete
End Sub
を実行すれば、削除されて、通常のシートの最初の状態に戻ります。
ツール
マクロ
VBE
挿入
標準モジュール
上記を３行を貼りつけ
３行内にカーソルを置いて、F5（実行）

お礼

早速のお助け、有難うございました。

ためしにやってみますね。

有難うございました。