こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルのオブジェクト

エクセル2000を使っています。
1つのブックに複数のシートがあります。
各シートにはオブジェクトが3個あり、
そのオブジェクトをまとめて消す方法がありましたら
ぜひ教えてください。

投稿日時 - 2003-03-10 19:50:13

QNo.494538

すぐに回答ほしいです

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

エクセル2000です。
Sub test05()
Worksheets("sheet1").DrawingObjects.Delete
End Sub
テストでShapeの直線、円、長方形、コントロールのラベルを貼りつけ実行すると、全て消えました。やって見てください。

投稿日時 - 2003-03-10 22:37:16

ANo.5

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(5)

ANo.4

各シートごとでなら、ジャンプ機能でオブジェクトを選択し削除すればよいと思います。

F5キー → セル選択 → オブジェクト →OK

→Deleteキーで削除。

この一連の動作をマクロの自動記録などで登録すれば、

シートを開く→マクロ実行→次のシートを開く→マクロ実行

という具合にして、以前よりラクにオブジェクトの削除ができると思います。
マクロは詳しくないので細かいところは他の人にお任せします。

投稿日時 - 2003-03-10 20:17:23

VBAで一気に削除するなら

Sub test()
Dim mySheet As Worksheet

For Each mySheet In ThisWorkbook.Worksheets
mySheet.Shapes.SelectAll
Selection.Delete
Next mySheet
End Sub

てな感じで。

投稿日時 - 2003-03-10 20:12:32

お礼

お返事ありがとうございます。
が、しかし、VBAさっぱりわかんないので
うまく組みこめないんですよね。
VBAがわかれば、かなり楽なんですが・・。

投稿日時 - 2003-03-11 00:34:53

ANo.2

オブジェクトの操作は、複数シートでの串刺し操作では出来ません。
#1さんの方法で、1シートずつ地道に消して行くしかないかと。

投稿日時 - 2003-03-10 20:11:12

ANo.1

ツールバーの図形描画を表示させて
ツールバーの中にあるマウスポインタのアイコン(オブジェクトの選択)
をクリック後、3個のオブジェクトを囲み Del キーで
まとめて消去できます。

投稿日時 - 2003-03-10 20:05:46

あなたにオススメの質問