図のハイパーリンクを別のセルに表示する方法

質問

エクセルで別の場所からコピペをしてきた画像（リンク付き）の
リンクを別のセルに表示したいのですが関数でできないでしょうか？

画像の貼り付け場所は毎回同じで画像自体も同じものです。（引用したいURLだけが変わる）

手作業やマクロでする場合は
・貼り付け
・画像を右クリックしてハイパーリンクの編集
・アドレスの文字列をコピー
・セルに貼り付け
になる作業です。

回答No.1

keithin · ベストアンサー

そういう関数とかはありませんので、手でやる作業をマクロでやらせるような工夫をします。

で。
・ハイパーリンクのついた図形は今見てるそれ１個しかないのか
・他にハイパーリンクの付いてない図形とかは無いのか
・テキストのハイパーリンク（ふつーにコピーしてくるとセルに埋まるヤツ）とか無いのか
・結果をどこに表示したいのか
そういった具体的な様子がさっぱり不明なので、てきとーに作成します。後出しの「実はこうしたかった」は無しで。

手順：
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim s as shape
　dim w as worksheet
’結果シートの用意
　set w = activesheet
　worksheets.add after:=w
　range("A1") = "url"
　on error resume next
’取り出し
　for each s in w.shapes
　　range("A65536").end(xlup).offset(1) = s.hyperlink.address
　next
end sub

ファイルメニューから終了してエクセルに戻る
リンク付き画像の載ったシートを開く
ＡＬＴ＋Ｆ８を押してマクロを実行する。

お礼

ありがとうございました