Publisher) (Hyperlink 对象
代表一个超链接。 超链接 对象所在的 超链接 集合和 形状 和 ShapeRange 对象。
使用 Shape.Hyperlink 属性可返回与形状关联的 Hyperlink 对象, (形状只能有一个超链接) 。
使用 Hyperlinks (索引) (其中 index 是索引号)从文档、区域或选定内容返回单个 Hyperlink 对象。
使用 添加 若要添加超链接的方法。
使用 地址 若要添加或更改到超链接地址的属性。
下面的示例删除活动文档中第一个形状关联的超链接。
Sub DeleteHyperlink()
ActiveDocument.Pages(1).Shapes(1).Hyperlink.Delete
End Sub
下面的示例删除选定内容中的第一个超链接。
Sub DeleteSelectedHyperlink()
If Selection.TextRange.Hyperlinks.Count >= 1 Then
Selection.TextRange.Hyperlinks(1).Delete
End If
End Sub
下面的示例对所选文本添加超链接。
Sub AddHyperlinkToSelectedText()
Selection.TextRange.Hyperlinks.Add Text:=Selection.TextRange, _
Address:="https://www.tailspintoys.com/"
End Sub
下面的示例将一个形状添加到当前出版物,然后将超链接添加到形状。
Sub AddHyperlinkToShape()
With ActiveDocument.Pages(1).Shapes.AddShape _
(Type:=msoShape5pointStar, Left:=200, _
Top:=200, Width:=300, Height:=300)
.Hyperlink.Address = "https://www.tailspintoys.com/"
End With
End Sub
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。