ExcelでWEB上のJPGを読み込ませる方法

質問

いろいろとためしてみたのですが、うまくいかなかったので教えてほしいです。

　｜A　 ｜B｜
１｜URL｜画像
２｜URL｜画像
３｜URL｜画像
４｜URL｜画像

こんな形のものを考えているのですが、どうやればいいのでしょうか？
A1の値はhttp://www.image.image01.jpg
B1にその画像を表示させたいです。

一番いいのは、
B1に「=ImgYomikomi(A1)」
と、関数でA1セルを参照させて表示させることができればいいのですが・・・
ほとんど画像は変わらないので、読み込みのタイミングはファイルを開いたときとかで大丈夫です。

VBAを使って実現するのでしょうか？
どうぞ宜しくお願いします。

使っているExcelは、2003です。

回答No.2

toshi_2000

No.1です。

B1に「=Macro1(A1)」という方法は、できません。

A1～A4にURLを入力して、マクロを実行してください。

画像を表示することしかマクロに記述していないので、ほかにも実現したいことがあれば、お尋ねください。

回答No.1

toshi_2000

以下の通りでどうでしょう。

Sub Macro1()
For i = 1 To 4
Cells(i, 2).Select
ActiveSheet.Pictures.Insert Cells(i, 1)
Next
End Sub

補足

ご回答ありがとうございます。
B1に「=Macro1(A1)」と参照してみたのですが、#Nameと出てしまいました・・・