Как вставить изображение из URL в Excel?

Question

Я пытаюсь извлечь изображение из URL и вставить его в Excel.

Мой лист Excel прост: он содержит 2 столбца.

Столбец 1 содержит URL-адрес изображения.В столбце 2 я хочу встроить изображение.Я использую следующий код.Он отлично работает для первой строки, где я сохранил изображение на локальном компьютере и указал путь, но не удается при попытке встроить прямо из URL.Я получаю следующую ошибку:

Ошибка - время выполнения 1004, невозможно получить свойство вставки для класса изображения.

Мой код:

Sub Button1_Click()

'ActiveSheet.Pictures.Insert("C:\810CfHBPGyL._SX425_.jpg").Select

'Updateby Extendoffice 20161116

    Dim Pshp As Shape
    Dim xRg As Range
    Dim xCol As Long

    'On Error Resume Next

    Application.ScreenUpdating = False

    Set Rng = ActiveSheet.Range("A2:A3")

    MsgBox "Step1"

    For Each cell In Rng

        filenam = cell
        MsgBox "Step2" & cell
        ActiveSheet.Pictures.Insert(filenam).Select
        MsgBox "Step3"

        Set Pshp = Selection.ShapeRange.Item(1)

        'MsgBox "Step4" & Pshp

        If Pshp Is Nothing Then GoTo lab
        xCol = cell.Column + 1
        Set xRg = Cells(cell.Row, xCol)

        With Pshp

            .LockAspectRatio = msoFalse
            .Width = 80
            .Height = 80
            .Top = xRg.Top + (xRg.Height - .Height) / 2
            .Left = xRg.Left + (xRg.Width - .Width) / 2

        End With

lab:

    Set Pshp = Nothing

    Range("A2").Select

    Next

    Application.ScreenUpdating = True

End Sub

Может ли это быть проблемой со ссылками на Excel VBA?