〜VBAの記述について〜
EXCELのsheet上にて、多数(50〜100くらい)の画像を貼り付けていて、
その全ての画像をクリア(削除)できる構文はありますでしょうか?
やりたいことは、EXCEL内に表示したい部品名(部品Ａ)を入れ、
ボタンひとつで部品Ａに構成している子部品を全て表示し、
ボタンひとつで全ての画像を削除する。。。。みたいな感じです。
素人的な考えで申し訳ございませんが、助けてください!
答え:
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のない保証の正しさ.