エクセルＶＢＡ 画像にハイパーリンク

質問

ＶＢＡ初心者です。
Ａ１からＡ１００まで、サムネイル画像があります。
Ｂ１からＢ１００までのセルに、ハイパーリンクＵＲＬがあります。
このハイパーリンクＵＲＬを、Ａ１からＡ１００までのサムネイル画像（図の番号が順不同）にいれたいので、よい方法をご教授ねがいます。

回答No.1

masnoske · ベストアンサー

シート上の画像は、Shapesコレクションに入っているので、アクティブシートで処理したいのなら ActiveSheet.Shapes を For Each ～ Next で回して処理できます。
画像の左上のセルは TopLeftCell で捕まえられるので、その右隣がハイパーリンクのURLになりますね。TolLeftCell.Offset(0,1) などで。

Dim obj As object
For Each obj In ActiveSheet.Shapes
' ここで obj.TopLeftCell.Offset(0,1) を使って、画像にハイパーリンクを貼る。
Next

ハイパーリンクの貼り方は、マクロの記録を参考にすればOKでしょう。

お礼

ありがとうございました。
バッチリ！　画像にハイパーリンク貼れまして、ＰＤＦで配布できました。

回答No.2

masnoske

[No.1] です。
誤）TolLeftCell.Offset(0,1) などで。
正）TopLeftCell.Offset(0,1) などで。