Метод Shape.AddHyperlink (Visio)

Статья
04/07/2023

Добавляет объект Hyperlink в фигуру Microsoft Visio.

Синтаксис

выражение. AddHyperlink

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

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

Hyperlink

Замечания

Использование метода AddHyperlink эквивалентно добавлению гиперссылки на фигуру путем нажатия кнопки Гиперссылка на вкладке Вставка .

Если объект Hyperlink уже существует для фигуры, метод возвращает ссылку на существующий объект Hyperlink .

Пример

В этом примере показано, как использовать метод AddHyperlink для добавления гиперссылки на фигуру. В нем также показано, как отлавливать ошибки, возникающие при попытке доступа к несуществующим гиперссылкам. Сначала он пытается получить доступ к не существующей гиперссылке, тем самым вызывая ошибку. Затем она добавляет гиперссылку, и при попытке доступа к гиперссылке во второй раз ошибка не возникает. Перед выполнением этого примера замените адрес допустимым адресом Интернета или интрасети.

 
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 и обратная связь.

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