Excel VBA Makro - Bilder und Link?
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
1 Antwort
Ich würde den Link "hinter" das Bild in die Zelle schreiben.
Wenn nun auf das Bild geklickt wird dann zu dem Link in der Zelle navigieren. (VBA code nötig, der den Click auf dem Bild erkennt. ggf muss es dafür in einer PictureBox sein.)
Der Url kann auch generell als HyperLINK in einer Zelle eingegeben werden , dann kann man auch nur auf die Zelle klicken.
In Excel kann man ja ein Bild auswählen und mit einen Hyperlink versenden. Genau das hätte ich gerne automatisiert.