複数画像から１つ選択し別シートへ貼り付ける

質問

EXCEL2010を使用しております。

１シートに複数枚ある画像の中から１枚を選び（クリックして）、それを別のシートへ貼り付ける
（コピー）VBAができません。

１シート内にある全ての画像を選択の対象として、選択（クリック）された画像のみを張り付けたい
のですが何方かお解りになる方はいませんか。

何分VBA初心者の為、ご教授願います。

回答No.1

keithin

簡単に出来る事：
事前に画像を１枚選択しておいて実行すると，コピーして貼り付けるマクロ

sub macro1()
　if typename(selection) <> "Picture" then
　msgbox "select one picture"
　exit sub
　end if
　selection.copy
　worksheets("Sheet2").paste
end sub

出来ないこと：
「画像をクリックしたら自動起動するマクロ」といったモノを意図していたのでしたら，そういう機能はありません。

やれば出来る事：
sub macro2()
　activesheet.shapes(application.caller).copy
　worksheets("Sheet2").paste
end sub

というマクロを１つ用意し，画像一つ一つについて右クリックして「マクロの登録」でこのマクロを登録する
画像をクリックすると，自分をコピーして貼り付ける。

お礼

ご教授ありがとうございました。

「画像をクリックしたら自動起動するマクロ」といったモノを意図していました。
これはできないのですね。
残念です。