Excelvba 図の名前を取得する方法を教えて

質問

挿入した図の名前を変更したいと考えています。変更するためには、挿入時に自動で付けられる名前を取得する必要があります。
名前の取得方法は下記があるようですが、目的には合いません。

１．”ActiveSheet.Shapes.Range(Array(1)).Name”コマンドは最背面の図の名前を表示します。挿入直後の図は、最前面にあるため名前を得られません。
２．”Selection.Name”コマンドは図挿入直後の選択状態の間は有効ですが、名前を得るためのコマンドボタンをクリックすると、コマンドボタンがselect状態になり、図の名前を得られません。

やりたいこと：
挿入した写真を決めた番号順に名前を付けて保存したい。複数の図を挿入するため、図の貼り付け後ＶＢＡで処理したい。

回答No.1

kon555 · ベストアンサー

２の”Selection.Name”コマンドを、ボタン押し以外で起動するのはダメですか？

https://zenn.dev/masahiro_toba/articles/dacbcc6424dfeb#

お礼

私の問題をご理解いただきありがとうございます。

私のプログラムでは、「ショートカットキーにマクロ登録」が最も使いやすい様なのでこちらを採用させていただきました。

回答No.3

kkkkkm

以下のサイトを参考にしてみてはいかがですか

Excel VBA（マクロ）で図形の名前を取得、変更する方法/Nameプロパティの使い方
https://sunagitsune.com/excelvbashapesname/

Excel VBA 図形(オートシェイプ)を取得する方法
https://officedic.com/excel-vba-autoshape-get/
For Each～Nextで取得して変更するサンプルコード

お礼

いろいろご指導ありがとうございます。
私のプログラムでは、No1の方の「ショートカットキーにマクロ登録」が最も使いやすい様なのでこちらを採用させていただきました。

回答No.2

imogasi

下記は、あまり詳しくはない者の言うことですが、
「図の名前」というのは、（対応した位置に）ラベルでも設けて、（見る人のために）内容をテキストで表示するものしかないのでは？
質問で言っているのは、その画像の由来・出所のファイルのある場所とファイル名ではないかと察するが、これは、挿入をVBAでして、そのVBAコードでも残ってないと、判らないのでは。
WEBなどの中の写真等は、HTML文の中に出所＝見に行って持ってくるデータのあり場所＝実体のあり場所が残っていると思うが。
ーー
WEB記事にあった、シートの写真についての、
Sub 処理の名前取得()
MsgBox Selection.Name
End Sub
Sub 表示の名前取得()
MsgBox Application.Caller
End Sub
ーーー
も要領を得ない。
画像挿入のVBAの
Sub test01()
Worksheets("Sheet1").Pictures.Insert "C:\Users\XXXX\Pictures\PC0406666.JPG"
End Sub
の引数部分は、VBAでやったとして、このコードが残ってないと判らないでしょう。
残っていても、どれがどれかの対応も割り出さないと判らないだろう。
ーー
この情報は、エクセルブック情報として、（保存して）あってもよさそうに思うが、今は小生レベルでは、「無い」としか知らない。
WEB情報が見つけにくいと、以前から思っている事項です。

お礼

細かいご指導ありがとうございます。私の意図が上手く伝わておらずご迷惑をお掛けしました。
私のプログラムでは、No1の方の「ショートカットキーにマクロ登録」が最も使いやすい様なのでこちらを採用させていただきました。