[[20120519131621]]　『ワークシートの写真をクリックすると写真の番号を』（春子）　ページの最後に飛ぶ

『ワークシートの写真をクリックすると写真の番号を表示させたい』（春子）

 ワークシートに複数ある写真の中からどれか写真をクリックすると
 その写真のマクロ（VBA）上の番号を表示させたいです。
   予め写真を選んで置かないで，写真クリックでマクロを起動させて表示できますで
しょうか。（写真に同じマクロを貼り付けておいてクリックで表示させたいです。）
  質問をわかりやすく書き直しました。

（春子）

 対象写真をクリックで処理を開始したいなら、
 Application.Callerで対象図形名が取得できますけどねえ。
 ↑これを調べて見てください

 ichinose

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

MsgBox Application.Caller & " です。" で図３のように名前と番号が取得できました。

 しかし，マクロで写真の番号をマクロのnameで調べると  picture３のように表示され
両者で数字は一致しますが日本語表示は違って来ます。これは仕方ないのでしょうね。
   文字列から数字だけ取り出して使おうと思いますが 文字列から数字だけを取り出すマクロが
思いつきません。いい方法はありますか。

 （春子）

下記で表示も一致させることが出来ました。ありがとうございました。（春子）

MsgBox ActiveSheet.Shapes(Application.Caller).Name

コメント返信：

[ 一覧(最新更新順) ]

[[20120519131621]] 『ワークシートの写真をクリックすると写真の番号を』（春子） ページの最後に飛ぶ

[[20120519131621]]　『ワークシートの写真をクリックすると写真の番号を』（春子）　ページの最後に飛ぶ