エクセル：シート上の「オートシェイプ」のみの一括削除について

お世話になります。過去に同じ質問があればお許しください。

『シート上のオートシェイプ（図形）だけの削除』について、
普通の消去等では残ってしまいます。

シート上のすべてのオートシェイプのみの一括削除の仕方を教えてください。よろしくお願いいたします。

No.1 ベストアンサー 回答者： merlionXX 回答日時： 2006/01/17 13:59

「図形の調整」のとなりくらいにある白い「オブジェクトの選択」矢印ですべてのオートシェープを囲みます。

デリートキーを押します。

それでOK

この回答へのお礼

ありがとうございました。あっというまにできました。
こんな簡単方法があるとは全く知りませんでした。
ありがとうございました^^

お礼日時：2006/01/17 15:03

No.4 回答者： Wendy02 回答日時： 2006/01/17 14:39

こんにちは。

＞『シート上のオートシェイプ（図形）だけの削除』について、

何か、意味深ですよね。それ以外のものでは、例えば、フォームツールなんてあります。もし、マクロでよければの話ですが、言葉どおりに、オートシェイプを削除するには、以下のようなものになります。

'<モジュールは、どこでも可>
Sub AutoShapeOnlyDelete()
Dim shp As Object
　For Each shp In ActiveSheet.Shapes
　 If shp.Type = msoAutoShape Then
　　 shp.Delete
　End If
　Next
End Sub

この回答へのお礼

Wendy02さん、いつもありがとうござい
ます。^^
図形全般でなく、オートシェイプだけの削除というのは、こうするのかと勉強になりました。お世話になりました^^

お礼日時：2006/01/17 15:32

No.3 回答者： noname#123709 回答日時： 2006/01/17 14:02

VBAでこんな感じでしょうか？

Sub test()
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub

この回答へのお礼

ありがとうございました^^
結果的には＃１さんの方法で解決しましたが、
実はＶＢＡではどうするのだろう？と勉強したいと思っていました。試してみると完璧にできました。ありがとうございました。

お礼日時：2006/01/17 15:10

No.2 回答者： big_fool 回答日時： 2006/01/17 14:02

Ctrl+G　で「ジャンプ」ダイヤログの「セル選択」オブジェクトにチェック　オブジェクトをすべて選択しDeleteですべてのオブジェクトは消せると思います

オートシェイプのみのはわかりません

この回答へのお礼

ありがとうございました。結果的には＃１さんの方法を先に利用して解決してしまいましたが、試して見ました。きれいに削除できました。ありがとうございました^^

お礼日時：2006/01/17 15:35