Excel VBAで図形の名前を変更する方法

質問

写真つき名簿を作り、別シートで、氏名を指定すると写真が表示されるようにしたいと思います。
方法をご存知の方、ご教授お願いします。（Excel　２０１０　希望）

写真を張り付けたとき下記のように　"Picture 1"　のように名前が付けられますが、この名前を　"山田"　のように氏名と関連した名前に変えられれば、VBAで氏名と写真を関連して操作できます。

または、たとえば　　A=ActiveShapeｓRangeｘｘｘｘｘｘのような形で図の名前が得られれば、対応できると思います。

いずれの方法でも構いませんが、お教えいただければ幸いです。　

ActiveSheet.Shapes.Range(Array("Picture 1"))

回答No.2

Br6 · ベストアンサー

名前を指定すると写真つき名簿があるシートから画像をコピーし貼り付けるという考え方であってますかね？
Pasteメソッドで画像を貼り付けした直後は必ず選択状態になりますので、Selectionで画像を取得することができます。

貼り付けのコードの次に
Selection.Name = "山田"
というコードを書けば画像の名前は"山田"になります。

お礼

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

マクロの記録では、解決しないので、助かりました。

回答No.1

kmetu

こちらに名前の変更方法が記載されています

よねさんのExcel2010とWord2010の使い方
Excel2010(エクセル2010)基本講座：オブジェクトの選択
オブジェクトの名前の変更
http://www4.synapse.ne.jp/yone/excel2010/excel2010_zu_obje.html

お礼

ご回答ありがとうございました。
VBAでの変更がしたかったので、ANo２を採用させていただきました。