如何使用 VBA 向图像添加超链接？答案

【问题标题】：How do I add a hyperlinks to image using VBA?如何使用 VBA 向图像添加超链接？
【发布时间】：2017-08-06 07:17:28
【问题描述】：

我有一个将在 Windows Server 2012 上的 GPO 上运行的脚本。

这是非常简单的东西，但我无法理解如何在图像周围添加超链接！我有：

objSelection.InlineShapes.AddPicture "linktoimage.html"

这是一个梦想，我可以看到图像并且没有问题。但是我如何向这个图像添加一个超链接，以便当人们点击它时，他们会被带到我想要的超链接位置。我知道添加图像只是一行代码，希望添加超链接也是如此。

我不是在 excel 或任何类似的东西中这样做，只是记事本++

【问题讨论】：

标签： image vba hyperlink add

【解决方案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

【讨论】：

干杯！那很有用。将其设置为 oShape 并应用您在此处所做的链接。