[[20220113143033]]　『URLを入力して画像表示』（あかり）　ページの最後に飛ぶ

『URLを入力して画像表示』（あかり）

URLのある画像が10枚あったとして
（例えば http://1～http://10）

そのURLの中から指定した画像をエクセルで表示させたいのですが、このようなことは可能でしょうか？

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 「画像を表示する」とは具体的に何がしたいのでしょうか

 (1) HyperLinkとしてセルに入力しておけば、クリックするとブラウザで表示できます

 (2) セルに設定されたHyperLinkをブラウザで開く操作は、VBAで

    Range("A1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

 というような感じでできます。

 (3) リボンの【挿入】→【画像】のファイル名にURLを入れると、ワークシートに画像を挿入できます。

 (4) 上記のURLの画像をシートに貼り付けるVBAのコードはこんな感じです。

    Dim sURL As String
    sURL = "https://www.google.co.jp/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png"
    Sheets("Sheet1").Pictures.Insert sURL
（´・ω・`） 2022/01/13(木) 16:06

（´・ω・`）様ありがとうございます。

説明不足だったみたいで申し訳ございません。

現状ではハイパーリンクでブラウザ表示して、その画像をコピーしてExcelに張り付ける作業をしています。これを関数やBVAで効率よくできないものかと思いまして質問させていただきました。

また、画像のURLは固定ではなく、毎回変わります。

（あかり） 2022/01/13(木) 16:17

 (4)でうまくいきませんか？

 >画像のURLは固定ではなく
 わからない部分はどこですか？
（´・ω・`） 2022/01/13(木) 16:34

（´・ω・`）様、返信ありがとうございます。

「sURL =」のところにURLを入力すると表示することはできたのですが、
A1のセルに入力されたリンクをB1に表示させたいです。

御教授よろしくお願いします。

（あかり） 2022/01/13(木) 22:41

（´・ω・`）様の回答を参考にネットで調べながら試行錯誤したら、思い描いたとおりできました。ありがとうございます。
（あかり） 2022/01/13(木) 23:07

コメント返信：

[ 一覧(最新更新順) ]

[[20220113143033]] 『URLを入力して画像表示』（あかり） ページの最後に飛ぶ

[[20220113143033]]　『URLを入力して画像表示』（あかり）　ページの最後に飛ぶ