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

Question

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

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

objSelection.InlineShapes.AddPicture "linktoimage.html"

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

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

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

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

How do I add a hyperlinks to image using VBA?

vba

image

add

hyperlink