Sheets("Sheet1").Shapes("gMap").Fill.UserPicture url

Sub tester()
    Dim c As Class1
    Set c = New Class1
End Sub

Option Explicit
 
Dim WithEvents ie As InternetExplorer
 
Private Sub Class_Initialize()
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "http://www.google.de"
    While ie.Busy
        DoEvents
    Wend
    Set ie = Nothing
End Sub