通过

Shape.AddHyperlink 方法 (Visio)

  • 项目

将 Hyperlink 对象添加到 Microsoft Visio 形状中。

语法

expression。 AddHyperlink

表达 一个代表 Shape 对象的变量。

返回值

Hyperlink

备注

使用 AddHyperlink 方法等效于通过单击“插入”选项卡上的“超链接”将超链接添加到形状中。

如果形状的 Hyperlink 对象已存在，则该方法返回对现有 Hyperlink 对象的引用。

示例

本示例说明如何使用 AddHyperlink 方法将超链接添加到形状中。 而且还说明如何捕获尝试访问不存在的超链接时引发的错误。 该方法首先会尝试访问不存在的超链接，这样就会引发错误。 然后会添加该超链接，在第二次尝试访问该超链接时便不会引发错误。 在运行此宏之前，请使用有效的 Internet 或 Intranet 地址替换 address。

 
Sub AddHyperlink_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim vsoHyperlink As Visio.Hyperlink 
 Dim blsCaught As Boolean 
 
 'Draw a rectangle shape on the active page. 
 Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1) 
 
 'A shape that has no hyperlink should raise an exception 
 'when the Hyperlink property is accessed. 
 On Error GoTo lblCatch 
 
 blsCaught = False 
 Set vsoHyperlink = vsoShape.Hyperlink 
 
 If Not blsCaught Then 
 Debug.Print "ERROR - Hyperlink didn't throw an exception!" 
 End If 
 
 'Add a hyperlink to a shape. 
 Set vsoHyperlink = vsoShape.AddHyperlink 
 
 'Return an absolute address. 
 vsoHyperlink.Address = "address " 
 
 Exit Sub 
 
 lblCatch: 
 Debug.Print "Error was thrown : " & Err.Description 
 blsCaught = True 
 Resume Next 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。