Compartir a través de

Método Shape.AddHyperlink (Visio)

  • Artículo

Agrega un objeto Hyperlink a una forma de Microsoft Visio.

Sintaxis

expresión. AddHyperlink

Expresión Variable que representa un objeto Shape .

Valor devuelto

Hyperlink

Comentarios

Usar el método AddHyperlink equivale a agregar un hipervínculo a una forma haciendo clic en Hipervínculos en la ficha Insertar.

Si ya existe un objeto Hyperlink para la forma, el método devuelve una referencia al objeto Hyperlink existente.

Ejemplo:

En este ejemplo, se muestra cómo utilizar el método AddHyperlink para agregar un hipervínculo a una forma. También se muestra cómo interceptar los errores que se producen cuando se intenta obtener acceso a hipervínculos que no existen. Primero, se intenta obtener acceso a un hipervínculo que no existe, por lo que se genera un error. A continuación, se agrega el hipervínculo y, cuando se intenta obtener acceso al hipervínculo por segunda vez, no se genera ningún error. Antes de ejecutar este ejemplo, reemplace address con una dirección de Internet o intranet válida.

 
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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.