2017-03-15 92 views
1

我有一个脚本,将在Windows Server 2012上的GPO上运行。如何使用VBA添加超链接到图像?

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

objSelection.InlineShapes.AddPicture "linktoimage.html"

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

我不是在Excel这样做还是那种什么,只是记事本++

期待答复。

感谢,

回答

0

假设这是有关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 
+0

干杯!这很有用。将其设置为oShape并应用链接,就像您在此处所做的一样。 – AK1991IT