ピクチャ名は、Picturesメソッドと Nameプロパティで、調べることが可能と思います。
ワークシートに貼り付けた図が1つならば、マクロコードは下記のとおりです。
----------------------------------------------------------------------------------------
Private Sub 画像の名前を調べる_書き方1()
画像の名前 = ActiveSheet.Pictures(1).Name
End Sub
'----------------------------------------------------------------------------------------
Pictures の後ろの (1) の 1 はインデックス番号のことで、画像が 1つだけの場合は 1 となります。画像が増えると順に 2、3・・と上がります。あなたがピクチャ名をどのように使うのかが不明のため、一概には言えませんが、場合により、このインデックス番号でも用が足りるかも知れませんね。
マクロコードは、これ以外の書き方もありますので、くわしく知りたければサンプルブックをダウンロードしてください。
サンプルブックのダウンロードは ここをクリック
（YNxv9e_picture.xls 82KB）
※ 一旦、ブックをハードディスクに保存し、後で改めて開いてから実行してください。
|
