Der folgende Code fügt ein Bild aus einer URL ein.

Ist es möglich das eingefügte Bild mit dem dazugehörigen Hyperlink zu hinterlegen. Also wenn man das Bild dann anklickt, direkt auf die Webseite des Bildes geleitet wird.

Wie muss man den Code ändern?

Function InsertPicFromURL(URL As String) As String

With ActiveSheet.Pictures.Insert(URL)

.Top = Application.Caller.Top

.Left = Application.Caller.Left

.Height = Application.Caller.Height

InsertPicFromURL = ""

End With

End Function