[[20120519120140]]　『excelシートに貼り付けた複数の写真から選んだ写吹x（春子）　ページの最後に飛ぶ

『excelシートに貼り付けた複数の写真から選んだ写真をマクロで特定したい』（春子）

  excelシートに貼り付けた複数の写真が有る場合，どれかを選択してその写真を拡大
するマクロ（ＶＢＡ）を考えていますが，その写真が選択されたことを特定できません。
 その写真の番号を取得するマクロを教えてください。

（春子）

 写真を選択してから、マクロ記録を動かして、選択された写真を拡大してみて。
これで、基本形が生成される。
ただし、もし、このコードを実行するとき、写真が選択されておらず、通常にセルが選択された状態なら
エラーになるので、選択されたものが写真かどうかのチェックを追加したほうがいいね。

 それはそれとして、選択された図の名前は以下。

 Sub Sample()

    If TypeName(Selection) <> "Picture" Then
        MsgBox "写真を選んでから実行してくださいね"
        Exit Sub
    End If

    MsgBox "選ばれた写真は " & Selection.Name & " です"

 End Sub

 (ぶらっと)

(ぶらっと)さんありがとうございました。
一旦選んでからマクロを開始するとOKでした。

  写真にマクロを貼り付けておいて写真をクリックするとその写真の番号を表示させたいのですが。
 つまり,写真クリックでマクロ起動させた場合はいい方法はないでしょうか。(春子）

[[20120519131621]]　『ワークシートの写真をクリックすると写真の番号を表示させたい』

 このichinoseさんの回答で解決だね。

 (ぶらっと)

コメント返信：