Set Hyperlink zu Bild gibt redundante Dateipfad

Question

Ich möchte eine Webadresse zu meinem Bild als Hyperlink hinzufügen. Mein Code ist:

Public Sub insert_video_from_file(a As Worksheet) 
...  
    hoehe = Application.CentimetersToPoints(4.96) 
    breite = Application.CentimetersToPoints(2) 

a.Activate 
'Set objPicture = InsertPicture("C:\Users\VEKO\Desktop\GPTW_logo.jpg", Cells(1, 1), strReturnMsg, hoehe, breite) 
Set objPicture = InsertPicture(ThisWorkbook.Path & "\video.jpg", Cells(1, 1), strReturnMsg, hoehe, breite) 

    objPicture.Name = "video" 'Name vergeben 
    With a 
     .Hyperlinks.Add Anchor:=.Shapes.Name(objPicture.Name), Address:= "www.google.de" 
    End With 
    Set objPicture = Nothing 
End Sub 

ich einen Hyperlink erhalten auf dem Bild, aber der Hyperlink „Pfad zur Datei“ + www.google.de (e.g. C://User/Desctop/www.google.de). Ich überprüfte das Internet und die Beispiele geben mir den gleichen .hyperlinks.add Ankercode, den ich benutzte, also weiß ich nicht, warum der Pfad eingestellt wird. Wer kann mir hier helfen?

Answer 1

Die HTTP:// ist erforderlich und Ihr Anker ist auch falsch:

.Hyperlinks.Add Anchor:=objPicture, Address:= "http://www.google.de"