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

解決済みの質問

エクセルVBA 画像にハイパーリンク

VBA初心者です。
A1からA100まで、サムネイル画像があります。
B1からB100までのセルに、ハイパーリンクURLがあります。
このハイパーリンクURLを、A1からA100までのサムネイル画像(図の番号が順不同)にいれたいので、よい方法をご教授ねがいます。

投稿日時 - 2020-04-06 21:59:23

QNo.9732099

困ってます

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

シート上の画像は、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でしょう。

投稿日時 - 2020-04-07 10:04:56

お礼

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

投稿日時 - 2020-04-08 10:46:57

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

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

回答(2)

ANo.2

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

投稿日時 - 2020-04-07 10:26:50

あなたにオススメの質問