Свойство Hyperlink.SubAddress (Visio)

Статья
04/07/2023

Возвращает или задает подадрес в объекте Гиперссылка фигуры. Для чтения и записи.

Синтаксис

expression. SubAddress

Выражение Переменная, представляющая объект Гиперссылка .

Возвращаемое значение

Строка

Замечания

Задание свойства SubAddress объекта Hyperlink фигуры является необязательным, если свойство Address не является пустым. В этом случае subAddress должен содержать имя страницы документа.

Задание свойства SubAddress гиперссылки эквивалентно вводу сведений в поле Подадрес в диалоговом окне Гиперссылки (на вкладке Вставка щелкните Гиперссылка). Это также эквивалентно настройке результата ячейки SubAddress в гиперссылке фигуры. строка name в окне Таблицы фигур.

Свойство SubAddress для объекта Hyperlink указывает подлокацию в адресе гиперссылки. Для файлов Microsoft Visio это может быть имя страницы. Для Microsoft Excel это может быть лист или диапазон на листе. Для HTML-страниц это может быть субанчер.

Адрес гиперссылки, для которого предоставляется вложенный адрес, должен поддерживать связывание подадресов.

Пример

В следующем примере показано, как использовать свойство SubAddress для задания подадреса гиперссылки. Перед выполнением этого макроса замените диск\folder\subfolder допустимым путем на компьютере, замените адрес допустимым адресом в Интернете или интрасети, подадрес — допустимым вложенным адресом для Интернета или интрасети, 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 и обратная связь.

Поделиться через