获取或设置形状的 Hyperlink 对象中的子地址。 读/写。
语法
表达式。SubAddress
表达 一个代表 Hyperlink 对象的变量。
返回值
String
备注
设置形状的 Hyperlink 对象的 SubAddress 属性是可选的，除非 Address 属性为空。 这种情况下，SubAddress 必须包含绘图页的名称。
设置超链接的 SubAddress 属性等效于在“超链接”对话框的“子地址”框中输入信息， (在“插入”选项卡上单击“超链接) ”。 它还等效于设置 ShapeSheet 窗口中形状的 Hyperlink. name 行中 SubAddress 单元格的结果。
Hyperlink 对象的 SubAddress 属性指定超链接地址中的子位置。 对于 Microsoft Visio 文件，它可以是页面名称。 对于 Microsoft Excel，这可以是工作表或工作表上的区域。 对于 HTML 页，它可以是子锚点。
要为其提供子地址的超链接地址必须支持子地址链接。
示例
以下示例显示如何使用 SubAddress 属性设置超链接的子地址。 运行此宏之前，请将 drive\ folder\subfolder 替换为计算机上的有效路径，将 address 替换为有效的 Internet 或 Intranet 地址，将 subaddress 替换为 Internet 或 Intranet 地址的有效子地址，将 drawing.vsd 替换为计算机上的有效文件，并将 定位点 替换为文件中的有效页面和形状。
Sub SubAddress_Example()
Dim vsoShape As Visio.Shape
Dim vsoHyperlink As Visio.Hyperlink
'Draw a rectangle shape on the active page.
Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1)
'Add a hyperlink to the shape.
Set vsoHyperlink = vsoShape.AddHyperlink
'Allow relative hyperlink addresses.
ActiveDocument.HyperlinkBase = "drive:\folder\subfolder "
'Return a relative address.
vsoHyperlink.Address = "..\drawing.vsd "
'Return a relative subaddress.
vsoHyperlink.SubAddress = "anchor "
'Print the resulting URLs to the Debug window
'to show how the relative path is derived
'from the base path and the difference
'between canonical and noncanonical forms.
Debug.Print vsoHyperlink.CreateURL(False)
Debug.Print vsoHyperlink.CreateURL(True)
'Return an absolute address.
vsoHyperlink.Address = "https://address "
'Return an absolute subaddress.
vsoHyperlink.SubAddress = "../subaddress "
'Print the resulting URL to the Debug window
Debug.Print vsoHyperlink.CreateURL(False)
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。