Bild aus dem Internet holen

Sub importImage()
Dim ws As Worksheet, rngTarget As Range, shp As Shape, myImage As Shape, strBildUrl As String
'Tabellenblatt festlegen
Set ws = Worksheets("Tabelle1")
' URL des Bildes
strBildUrl = "https://assets.mmsrg.com/isr/166325/c1/-/ASSET_MMS_83250036/mobile_200_200_png"
' Ziel-Range für das Bild
Set rngTarget = ws.Range("A1")
' Suche das Bild und lösche es falls vorhanden
For Each shp In ws.Shapes
If shp.Name = "myImageTag" Then
shp.Delete
Exit For
End If
Next
' Bild hinzufügen
Set myImage = ws.Shapes.AddPicture(strBildUrl, msoTrue, msoTrue, rngTarget.Left, rngTarget.Top, rngTarget.Width, rngTarget.Height)
' Bild zur wiedererkennung 'taggen'
myImage.Name = "myImageTag"
End Sub