Метод Hyperlink.CreateURL (Visio)

Статья
04/07/2023

Возвращает полное и при необходимости каноническое представление абсолютного адреса гиперссылки.

Синтаксис

выражение. CreateURL( _CanonicalForm_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Каноническая форма	Обязательный	Integer	True (ненулевая), если каноническая форма; в противном случае — false (0).

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

Строка

Замечания

Метод CreateURL объекта Hyperlink можно использовать для разрешения относительных URL-адресов по базовому адресу гиперссылки.

При использовании канонической формы метод CreateURL применяет правила канонизации URL-адресов к гиперссылке. Во время канонизации в кодировке URL-адреса закодированы только пробелы. Порт 80 предполагается для URL-адресов HTTP и удаляется во время канонизации. Например, URL-адрес "https://www.microsoft.com:80/" возвращается как "https://www.microsoft.com/", в то время как https://www.microsoft.com:1000/" не изменяется.

Пример

Ниже приведены некоторые примеры результатов метода CreateURL :

Address = "https://www.microsoft.com/" 
CreateURL(False) returns "https://www.microsoft.com/" 
 
Address = "C:\My Documents\Spreadsheet.XLS" 
CreateURL(False) returns "file://C:\My Documents\Spreadsheet.XLS" 
CreateURL(True) returns "file://C:\My%20Documents\Spreadsheet.XLS"

Пример относительного пути:

Assume : Document.HyperlinkBase = "https://www.microsoft.com/widgets/" 
Address = "../file.htm" 
CreateURL(False) returns "https://www.microsoft.com/file.htm"

В следующем примере показано, как использовать метод CreateURL для разрешения относительных URL-адресов по базовому адресу гиперссылки. Перед выполнением этого макроса замените drive\folder\subfolder допустимым путем к файлу на компьютере, замените адрес допустимым адресом в Интернете или интрасети, а drawing.vsd — допустимым файлом на компьютере.

 
Sub CreateURL_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 a shape 
 Set vsoHyperlink = vsoShape.AddHyperlink 
 
 'Allow relative hyperlink addresses 
 ActiveDocument.HyperlinkBase = "drive :\folder \subfolder " 
 
 'Return a relative address 
 vsoHyperlink.Address = "..\drawing.vsd " 
 
 '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 non-canonical forms 
 Debug.Print vsoHyperlink.CreateURL(False) 
 Debug.Print vsoHyperlink.CreateURL(True) 
 
 'Return an absolute address 
 vsoHyperlink.Address = "https://address " 
 
 'Print the resulting URL to the Debug window 
 Debug.Print vsoHyperlink.CreateURL(False) 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

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