質問:
〜VBAの記述について〜
EXCELのsheet上にて、多数(50〜100くらい)の画像を貼り付けていて、
その全ての画像をクリア(削除)できる構文はありますでしょうか?

やりたいことは、EXCEL内に表示したい部品名(部品A)を入れ、
ボタンひとつで部品Aに構成している子部品を全て表示し、
ボタンひとつで全ての画像を削除する。。。。みたいな感じです。

素人的な考えで申し訳ございませんが、助けてください!
答え:
Dim oShape As Shape

For Each oShape In ActiveSheet.Shapes
oShape.Delete
Next

ただし、入力規則でリストがある場合を考えてません。
(対象外にするようなプログラムをやったことはあるんですが、忘れました)


あ、画像限定なんですよね?
ということは、oShape.Type = msoPicture のものだけ削除すればいいんだから、

Dim oShape As Shape

For Each oShape In ActiveSheet.Shapes
If oShape.Type = msoPicture Then oShape.Delete
Next

これでどうでしょう。(当然ですが、シートが別なら変えてくださいね)
他は答える:
この質問・回答は役に立ちましたか?

ウェブサイトのユーザーによる情報ポスト、JPQA.comのない保証の正しさ.

  • PCが重いというか反応が遅いのですが、改善できない...
  • ウイルス駆除など全て業者さんにやってもらうことはで...
  • /* c410 -- sorting*/#includestdio.h...
  • Sheets("1").Select Range("B35:K58...
  • 自宅からNTTまでの距離を計測出来るサイトはあります...
  • ウインドウズXPのメディアプレーヤー11でDVDを再...