ActiveSheet.Pictures.Insert не работает в Excel 2007

Question

ActiveSheet.Pictures.Insert не работает с удаленными изображениями в Excel 2007 ... у кого-нибудь есть альтернативный метод?

Public Sub InsertImages()
    Dim iIndex          As Integer
    Dim sImageName      As String
    Dim sImageCell      As String

    For iIndex = 3 To 30
        sImageName = "http://images.server.com" & ActiveSheet.Range("DV" + Trim(Str(iIndex))).Value
        sImageCell = "DW" + Trim(Str(iIndex))


            ActiveSheet.Pictures.Insert(sImageName).Select
            With Selection.ShapeRange
                .Top = Range(sImageCell).Top + 20
                .Left = Range(sImageCell).Left + 20
                .Height = Range(sImageCell).Height - 40
                .Width = Range(sImageCell).Width - 40
            End With

    Next
End Sub

Answer 1

Глядя на код выше, вы передаете правильный URL-адрес?
Получает ли этот URL изображение (например, JPEG) при публикации в браузере.

поставить Debug.Print sImageName до ActiveSheet.Pictures.Insert(sImageName).Select.
Создается неверный URL-адрес.