Excelの画像挿入 2

質問

シートにボタンを用意し、ボタンを押すとヘルプの解説者として人物の画像が表示させたいです。

ボタンを押すと画像とメッセージが表示され、メッセージのOKを押すと画像も消えるようなマクロを教えてほしいです。

お願いします。

回答No.2

keithin · ベストアンサー

何をどうやってて失敗してるのか、こちらではさっぱり判りません。
回答したのと、勝手に違う事をして勝手に間違えて出来なくても、フォローできません。

１．まっさらのシートに回答通りに行い、まず出来ることを確認してください。
２．必要に応じてアナタがご相談に書いたことと実際とでどこが違うのかよく調べてから、正しく修正して本番に臨んでください。

再掲：
＞ヤリタかった事の説明が足りてなかった時は、詳しい状況を添えて別途ご相談を投稿し直して下さい。

例えば画像は１枚じゃなく何枚もあって、何番を選んだらいいのか自分じゃわからない、といった詳しい状況の説明がご相談に全然書かれてません。と言っています。
どうしたらいいのかやっぱり判らなければ、何が違っててホントはこうでした、と添え物じゃなくちゃんと新しいご相談を書いて情報提供してください。

手順：
挿入の図のファイルから画像を挿入した「その瞬間に」、名前ボックス（添付図赤丸）の中に例えば
myPict1
と固有の名前を記入し、Enterする

マクロを例えば

sub macro3()
activesheet.pictures("myPict1").visible = true
msgbox "hello"
activesheet.pictures("myPict1").visible = false
end sub

のように修正します。

お礼

すみません。ありがとうございます。

回答No.1

keithin

挿入の図のファイルから解説者の画像を１枚、シートの所定の位置に配置する
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro2()
activesheet.pictures(1).visible = true
msgbox "hello"
activesheet.pictures(1).visible = false
end sub

ファイルメニューから終了してエクセルに戻る
オートシェイプの図形を１個シートに配置する
右クリックしてマクロの登録で、さっき登録したマクロを選ぶ
図形をクリックする。

お礼

回答ありがとうございます。
さっそく試してみました。
でも、画像が表示されないです。
activesheet.pictures(1)の（　）の数値は、そのシートに何番目に挿入したかの順番の番号を入れればいいんですか。
（さきほどのマクロではそのようにしたらできたので）
メッセージのみ表示されました。