將圖片的超鏈接設置爲冗餘文件路徑

Question

我想添加一個web地址作爲超鏈接。我的代碼是：

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 

我得到設定畫面的超鏈接，但超鏈接「的路徑文件」 + www.google.de (e.g. C://User/Desctop/www.google.de)。我查了一下互聯網，這些例子給我提供了和我一樣使用的.hyperlinks.add錨碼，所以我不知道爲什麼設置路徑。任何人可以幫助我嗎？

Answer 1

的HTTP://是必需的，你的錨也是錯誤的：

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