画像へのハイパーリンクを設定すると冗長ファイルパスが得られます

Question

画像にハイパーリンクとしてウェブアドレスを追加します。私のコードは次のとおりです。

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)です。私はインターネットをチェックし、例は私に同じものを与えます。ハイパーリンク。私が使用したアンカーコードを追加して、なぜパスが設定されているのかわかりません。ここで私を助けることができる人は誰ですか？

Answer 1

HTTP://が必要とされ、あなたのアンカーも間違っている：// `：あなたは` HTTPを使用する必要が

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