画像の名前を調べるには?

Question 22.2 Previous Next
始めまして、早速ですが著書「マクロ500連発」を参考に、私の仕事を軽減かつ確実に行う事が出来るようになりました。が・・・
人間とは貪欲なもので楽になれば次の壁が頭をもたげてきます。

質問:貼り付けたBMPのピクチャ変数名を調べる方法はありますか? ピクチャ名が自動発番されているので、マクロで取り扱うときに不便なのです。なお、BMPファイルはファイルとして保存されていません(カット&ペーストを使っている・運用上)。 どうしたら良いのでしょう?
Answer   Copyright (C) 1999.10.31 永井善王
ピクチャ名は、Picturesメソッドと Nameプロパティで、調べることが可能と思います。
ワークシートに貼り付けた図が1つならば、マクロコードは下記のとおりです。
'-----------------------------------------------------------------------------
Private Sub 画像の名前を調べる_書き方1()
    画像の名前 = ActiveSheet.Pictures(1).Name
End Sub
'-----------------------------------------------------------------------------
Pictures の後ろの (1) の 1 はインデックス番号のことで、画像が 1つだけの場合は 1 となります。画像が増えると順に 2、3・・と上がります。あなたがピクチャ名をどのように使うのかが不明のため、一概には言えませんが、場合により、このインデックス番号でも用が足りるかも知れませんね。

マクロコードは、これ以外の書き方もありますので、くわしく知りたければサンプルブックをダウンロードしてください。

サンプルブックのダウンロードは ここをクリック  (YNxv9e_picture.xls 82KB)
※ 一旦、ブックをハードディスクに保存し、後で改めて開いてから実行してください。

 

Excel VBA Macro