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向图像添加超链接？

1 个答案: