Wie füge ich mit VBA Hyperlinks zu Bildern hinzu?

Question

Ich habe ein Skript, das auf GPO unter Windows Server 2012 ausgeführt wird.

Es ist ziemlich einfach, aber ich kann nicht ergründen, wie Sie einen Hyperlink um ein Bild hinzufügen! Ich habe:

objSelection.InlineShapes.AddPicture "linktoimage.html"

Dieser Traum arbeitet, kann ich das Bild sehen, und es gibt kein Problem. Aber wie füge ich einen Hyperlink zu diesem Bild hinzu, so dass, wenn Leute darauf klicken, sie zu meinem gewünschten Hyperlink-Ort gebracht werden. Ich weiß, dass das Hinzufügen eines Bildes einfach eine Codezeile ist, in der Hoffnung, dass ein Hyperlink hinzugefügt wird.

Ich tue dies nicht in Excel oder etwas Derartiges, Notepad ++ nur

Blick nach vorn zu antworten.

Danke,

Answer 1

Angenommen, dies zu Wort ist, müssen Sie die Sie gerade erstellt einen Verweis auf die Form speichern und dann diese Referenz als Argument verwenden

Option Explicit 

Sub LinkImageTest() 
    Dim oSelection As Selection 
    Dim oDocument As Document 
    Dim oShape As InlineShape 

    Set oSelection = Application.Selection 
    Set oDocument = oSelection.Document 

    Set oShape = oSelection.InlineShapes.AddPicture("https://yt3.ggpht.com/-Pde_zs2tuj0/AAAAAAAAAAI/AAAAAAAAAAA/iBq9KSwTTLk/s88-c-k-no-mo-rj-c0xffffff/photo.jpg") 

    oDocument.Hyperlinks.Add oShape, "http://www.microsoft.com" 

End Sub