こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

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

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

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

投稿日時 - 2013-10-26 22:23:19

QNo.8322133

困ってます

質問者が選んだベストアンサー

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

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

投稿日時 - 2013-10-26 23:34:32

お礼

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

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

投稿日時 - 2013-10-27 18:27:47

ANo.2

このQ&Aは役に立ちましたか?

3人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

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

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

投稿日時 - 2013-10-26 23:22:59

お礼

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

投稿日時 - 2013-10-27 18:21:07

あなたにオススメの質問