使用英语阅读

通过


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 支持和反馈,获取有关如何接收支持和提供反馈的指南。