• ベストアンサー

エクセルからオートシェイプのみ一括削除するには

エクセルシートにオートシェイプ(矢印など)を貼り付けたシートを作っていますが、何度もシートをコピペで修正してましたら、このオートシェイプ(矢印など)が、何重にも貼り付けられてしまい、膨大な容量になってしまいました。 ひどいところでは、20重くらいになっており、その矢印自体が1500個くらいありひとつずつ消してると1万個を超えることになり気が遠くなります。 シートの文字や、計算式、書式設定、セル巾などは消さずにオートシェイプのみ一括削除したいのですが、いい方法はありませんか。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.3

オートシェイプだけでなく、写真等も含めたシート上の「オブジェクト」をすべて削除 する場合は、私はいつも、図形のどれか一つを選択して、[Ctrl]と[Shift]を押しながら スペースキーを押します。 画面外の図形もすべて選択されますので、そこで[Delete]。

yuusukeccc
質問者

お礼

ありがとうございます。 この方法も簡単ですばらしいですね。

その他の回答 (3)

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.4

シートに貼り付けた写真とコントロール以外のShapesを削除する。 VBAでやってみました。 問題のシートをコピーして、原シートを残したまま、下記をやってください。 Sub test02() Dim obj As Object For Each obj In Worksheets("Sheet1").Shapes If obj.Type = msoPicture Or obj.Type = msoOLEControlObject Then Else obj.Delete End If Next End Sub 上記コードの()内のSheet1は問題のシートをコピーしたシートの名前に変えて下さい。 少数例では写真とコントロールは残り、オートシェイプは消えました。 しかしこのタイプの再々の処理経験者では無いので、よろしく。 オートシェイプには http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi?mode=al2&namber=27827&rev=&no=0&P=R&KLOG=179 にあるような各種種類があり、質問者のシートの場合、写真、コントロールのほかにも残すべき物(オブジェクト)があるかもしれませんが。

yuusukeccc
質問者

お礼

ありがとうございます。 ここまで作っていただき感謝です。

  • xls88
  • ベストアンサー率56% (669/1189)
回答No.2

全部消しても良いなら Ctrl+G、で「ジャンプ」ダイアログ表示 Alt+S、で「セル選択」 B、で「オブジェクト」オプションを選択 Enter、で「OK」 以上の操作でオートシェイプが一気に選択されます。 続けて、 Delete、で一気に削除されます。 良く確認してからDeleteしてください。

yuusukeccc
質問者

お礼

ありがとうございます。 今回は使いませんでしたが覚えておいて使います。

  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.1

Excel 図形描画 No.7 複数の図形をまとめて選択する http://plaza.rakuten.co.jp/pasodairy/diary/200606270000/ まとめて選択して削除

yuusukeccc
質問者

お礼

ありがとうございました。 簡単で一発で削除できました。

関連するQ&A

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

    お世話になります。過去に同じ質問があればお許しください。 『シート上のオートシェイプ(図形)だけの削除』について、 普通の消去等では残ってしまいます。 シート上のすべてのオートシェイプのみの一括削除の仕方を教えてください。よろしくお願いいたします。

  • オートシェイプの削除について

    お分かりになられる方がおりましたら、 是非ご教授下さい。 エクセルで、簡単な矢印付きの表を作成しました。 文字は「数式と値のクリア」で全部を消しますが、 オートシェイプで引いた矢印が残ってしまいます。 1本づつ消しているのですが、量が多い時はとて も大変です。 オートシェイプを一括して消去することはできる のでしょうか。 何卒宜しくお願い申し上げます。

  • オートシェイプ削除について教えて下さい。

    こんばんわ! エクセル2003を使用してます。 ・オートシェイプを削除するのに、一つ一つ選んでDelateしてます。 数が多いと、消すのが大変です。 (質問) ・オートシェイプの数が多数(100個程)書かれている場合、一気に消す事は可能でしょうか? ・セルを指定して、一気に消す事は可能でしょうか? (例) シート1 A3:A6とA8にオートシェイプがあります。 A3:A6のオートシェイプだけを、一気に消したいのですが、このような事、できますか? どなたか、教えて頂けませんか? よろしくお願いします。

  • エクセルでのオートシェイプについての質問です。

    エクセルでのオートシェイプについての質問です。 エクセルのシートの一定の決まったセルに数字を打ち込むとそれに連動してオートシェイプの矢印の長さを変更できるようにしたいのですが、わかる方いますでしょうか? 例えばB1に「1.0」、B2に「1.5」、B3に「2.0」を入力した場合、連動してc1,c2,c3にある矢印の長さが変わるものです。 VBAを理解したいのですが、できれば、コピー貼付けできるコードを教えていただきたいのです。

  • Excelの直線一括削除

    教えてください。 Excelのシートに引き詰められたオートシェイプの直線を一括に削除したいのですが、そんな方法はありますか?

  • 全てのオートシェイプを一括削除する方法はありますか

    Microsoft Excel 2003です。 全てのシートの全てのオートシェイプを一括削除する方法はありますか?

  • Word2003のオートシェイプで

    Wordで表を作り、一つ一つのセルに文章が入っています。 そのひとつのセルの文章を、ぐるっと丸で囲みたいのですが、その方法として、オートシェイプを使ってみています。 セル内の文章を、オートシェイプ内の「テキスト追加」の状態でコピペをするのは駄目だと、上司から言われています。 オートシェイプの書式設定で、「塗りつぶしなし」の状態でも試しているのですが、なかなか上手く中央に文章が来ず、なぜか丸いオートシェイプごとひょいと上の方へずれてしまいます。 なんとか、セル内の文章をそのままにぐるっと囲える方法はないでしょうか。 わかりにくかったらすみません。 どなたかご教授ください。

  • エクセル。オートシェイプ間で書式のみをコピーできませんか?

    エクセル2000を使っています。 オートシェイプの書式設定について質問です。 既にあるオートシェイプAの書式を、同じく既にある オートシェイプBの書式に一致させる作業をしたいと 考えています。 Aが新たに作成されるものであれば、Bの書式を 「オートシェイプの規定値に設定」することにより、 一致させられますが、Aは既存なのでこれでは 反映させられません。 Aが一つや二つくらいならば、新たに書き直しても 良いのですが、沢山あるので、全部やり直しは きついのです。 セルの書式ならば、 「形式を選択して貼り付け」→「書式コピー」 で、書式だけをコピーできるのですが・・・ 同じようにオートシェイプ間で書式をコピーする 方法はないものでしょうか。?

  • excel オートシェイプ図形内の文字を一括コピー

    オートシェイプの図形内の文字を一括コピーして セルに貼り付けることはできますでしょうか? 図形描画の矢印マークで図形は一括コピーできますが 図形内の文字はコピーできずに困っています。 誰かわかる形いましたらご教授ください。

  • Excel オートシェイプ

    はじめてエクセルを使うのですが オートシェイプで→を使ったのですが、間違ったところに引いてしまい 消せません 矢印のみをけすにはどうすればいいのかわかりません 私のような初心者によきアドバイスをお願いします

専門家に質問してみよう