如何使用VBA添加超鏈接到圖像？

Question

我有一個腳本，將在Windows Server 2012上的GPO上運行。

這是非常簡單的東西，但我無法理解如何在圖像周圍添加超鏈接！我有：

objSelection.InlineShapes.AddPicture "linktoimage.html"

此工作的夢想，我可以看到圖像，也沒有問題。但是，我如何添加超鏈接到這個圖像，以便當人們點擊它時，它們被帶到我想要的超鏈接位置。我知道添加圖像只是一行代碼，希望添加一個超鏈接。

我不是在Excel這樣做還是那種什麼，只是記事本++

期待答覆。

感謝，

Answer 1

假設這是有關Word，您需要保存的引用您剛纔創建的形狀，然後使用該引用作爲參數傳遞給Document.Hyperlinks.Add

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