ExcelVBAにて画像URLから画像を取得し、指定のセルに挿入する方法

Question

###前提・実現したいこと
ExcelVBAにて、画像URL（〜〜.jpg）が挿入されている列があり、その列のURLから画像を取得したものを、指定の列に画像として表示させる操作を自動化したいと思っています。
このソースでは”G列”にある画像URLを”A列”に表示させようとしています。
このソースはYahoo!知恵袋より収得しました。

###発生している問題・エラーメッセージ

エラー"1004"
アプリケーション定義または、オブジェクト定義のエラーです。

###該当のソースコード

Sub Macro()
Dim i As Long, imax As Long
Dim sp As Shape
imax = Cells(Rows.Count, 7).End(xlUp).Row
For i = 2 To imax
Cells(i, 1).Select
p = "" & Cells(i, 7).Value & ""
ActiveSheet.Pictures.Insert(p).Select
Next
For Each sp In ActiveSheet.Shapes
sp.Width = 50 '[幅を指定する]
sp.Height = 30 '[高さを指定する]
Next
End Sub

###試したこと
GoogleやYahoo!知恵袋での検索。
ブレークポイント挿入によるエラー検証。
（ActiveSheet.Pictures.Insert(p).Selectの部分でエラーが発生している模様）

###補足情報(言語/FW/ツール等のバージョンなど)
当方、HTML/CSS、簡単なRuby、Delphiしか触ったことがありません。
ExcelVBAの知識はほとんどありません。
現状はMac版で最新のExcelを使用しています。
VBEを開き、この操作を行いたいシートのVBEに上記のソースを入力しているだけの状態になっています。

Answer 1

こちらの質問が参考になるかも。
https://teratail.com/questions/40321

---

上記質問に書いた自分のコードの修正版です。
お試しください。
但し、Macでは未検証です。

Sub Macro()
    Dim r As Long
    r = 2
    While Cells(r, 7) <> ""
        Set Picture = ActiveSheet.Shapes.AddPicture( _
            Filename:=Cells(r, 7), _
            LinkToFile:=False, SaveWithDocument:=True, _
            Left:=Cells(r, 1).Left, Top:=Cells(r, 1).Top, _
            Width:=50, Height:=50)
        r = r + 1
    Wend
End Sub

---

エラー処理追加１（エラーを無視する）

Sub Macro()
    On Error Resume Next           ' <===これを追加
    Dim r As Long
    r = 2
    While Cells(r, 7) <> ""
        Set Picture = ActiveSheet.Shapes.AddPicture( _
            Filename:=Cells(r, 7), _
            LinkToFile:=False, SaveWithDocument:=True, _
            Left:=Cells(r, 1).Left, Top:=Cells(r, 1).Top, _
            Width:=50, Height:=50)
        r = r + 1
    Wend
End Sub

エラー処理追加２（エラー情報を取得する）

Sub Macro()
    On Error Goto ErrHandle           ' <===これを追加
    Dim r As Long
    r = 2
    While Cells(r, 7) <> ""
        Set Picture = ActiveSheet.Shapes.AddPicture( _
            Filename:=Cells(r, 7), _
            LinkToFile:=False, SaveWithDocument:=True, _
            Left:=Cells(r, 1).Left, Top:=Cells(r, 1).Top, _
            Width:=50, Height:=50)
        r = r + 1
    Wend
    Exit Sub                     ' <==== ここから先を追加
ErrHandle:
    MsgBox Err.Description
'    Resume Next                 ' 処理を継続する場合はこの行を有効化
End Sub

Comments

[kaito2280]

ありがとうございます！
ただこちらも確認して色々実践してみたのですが、まだ解決しませんでした、、、
もし他のご回答ありましたらよろしくお願いいたします。

[ttyp03]

MacだとWindowsと若干が異なるようですね。
先の案内した質問でもPictures.Insertがないような質問でした。
Pictures.Insertを使わない、たぶん動くであろうコードを書いておきましたのでお試しください。

[kaito2280]

ttyp03さん
ご丁寧にコードまで記述していただきありがとうございます。
こちらのコードを使用してみたのですが、同じエラーメッセージが表示されてしまいました。
5行目〜6行目でエラーが表示されます。
色々と調べてはいるのですが、私もさっぱりわからない状態になってます、、、

[ttyp03]

うーん、謎ですね。
G列の画像URLは正しいですよね？
http://～/～.jpg
のようになっていますよね？

[kaito2280]

そうですね。
G列の画像URLは間違いないです。
表記も間違いないです。
画像URLをブラウザで叩くとそのまま画像が出てきます。

[ttyp03]

意味があるかわからないですけど、
Filename:=Cells(r, 7).value, _
にすると変わりますかね？

[kaito2280]

変えてやってみましたが、やはり同じ位置でエラーが出てしまいます、、、

[ttyp03]

むぅ、そうですか。
最初に紹介した質問にあるjawaさんのコードでも同じでしょうか。
たいした違いはなさそうですが、一応解決済みになっているので。

[kaito2280]

jawaさんのコードでもエラー1004が出てしまいますね。。。
すごい初歩的なことなのですが、VBAを使いたいシートのVBEにコードを記述して、実行するだけで本来は動作するのでしょうか？
現状行っているのはそれだけなので、他にどこかの設定をいじったり、違う場所で定義しなければならないといった特殊なルールは存在するのでしょうか？

[ttyp03]

通常はその方法で動きます。
ただし、WindowsとMacでは若干実装状況が異なるようで、Windowsで動いているからといって単純にMacで動くとも限らないようです。

[kaito2280]

わかりました。
Windows端末をどうにか用意して確認してみたいと思います。
ありがとうございます。
また、Windowsでやった後に報告します。

[kaito2280]

ttyp03さん
Windowsで実行した結果、途中まで画像が取得できるのですが、数枚取得したところでエラーが出て止まってしまいました。
止まった原因は、URL先の画像がなかったことかと思います。
このような場合に例外処理を加えることは可能なのでしょうか？
おんぶにだっこで申し訳ございません、、、

[ttyp03]

エラー処理の例を本文のほうに追加しておきましたのでお試しください。
２の方ではとりあえずメッセージボックスでエラーの詳細を出していますが、ここらへんは適当にカスタマイズしてください。

[kaito2280]

ttyp03さん
ありがとうございます！！
動作しました！
何から何までありがとうございました。
もっと勉強いたします。。

[ttyp03]

Macで動かなかったのが気がかりですが、とりあえずできて良かったです。

[kaito2280]

Macで試すとエラーコードも出ず、プログラム自体が実行されませんでした。
WindowsとMacでなぜExcelの作りが違うのかは疑問ですが、、、