Метод Shape.AddHyperlink (Visio)

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

Синтаксис

выражение. AddHyperlink

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

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

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