Image nesnesine internettki herhangi bir adresteki resmi alabilirsiniz. Normalde internetten image nesnesi içine LoadPicture özelliği ile resim alıp görüntüleyemiyoruz. Ama aşağıdaki apiler ile bunu yapmak mümkün oluyor.

Kodlama için UserForm, Image nesnesi ve CommandButton nesnelerine ihtiyaç var.




    Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
    Private Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long

    Public Function ExcelVBANet(ByVal url As String) As Picture
        Dim IPic(15) As Byte
        CLSIDFromString StrPtr("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"), IPic(0)
        OleLoadPicturePath StrPtr(url), 0&, 0&, 0&, IPic(0), ExcelVBANet
    End Function


    Private Sub CommandButton1_Click()
    Image1.Picture = ExcelVBANet("http://www.excelvba.net/forum/desteklogo.jpg")
    End Sub

Alıntıdır...(Kaynak:Excelvba.net)