通过

Hyperlink.Follow 方法 (Visio)

  • 项目

使 Microsoft Visio 导航到超链接。

语法

表达式。遵循

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

返回值

无

示例

下面的示例绘制了一个矩形形状，在该形状中添加了一个 Hyperlink 对象，设置其 Address 和 NewWindow 属性，然后使用 Follow 方法导航到该超链接。

运行此代码之前，请将 address 替换为有效的 Internet 或 Intranet 地址。

 
Public Sub Follow_Example() 
 
 Dim vsoHyperlink As Visio.Hyperlink 
 
 Set vsoHyperlink = ActivePage.DrawRectangle(0,0,5,5).AddHyperlink 
 
 vsoHyperlink.Address = "https://address /" 
 vsoHyperlink.NewWindow = False 
 vsoHyperlink.Follow 
 
End Sub

支持和反馈

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