Compartir a través de

Propiedad Hyperlink.SubAddress (Visio)

  • Artículo

Obtiene o establece la subdirección de un objeto Hyperlink de una forma. Lectura y escritura.

Sintaxis

expresión. Subdirección

Expresión Variable que representa un objeto Hyperlink .

Valor devuelto

Cadena

Comentarios

Es opcional establecer la propiedad SubAddress del objeto Hyperlink de una forma, a menos que la propiedad Address esté vacía. En este caso, SubAddress debe contener el nombre de la página de dibujo.

Establecer la propiedad SubAddress de un hipervínculo equivale a escribir información en el cuadro Subdirección del cuadro de diálogo Hipervínculos (en la pestaña Insertar , haga clic en Hipervínculo). Además, también equivale a establecer el resultado de la celda SubAddress en la fila Hyperlink. nombre de la ventana ShapeSheet.

La propiedad SubAddress de un objeto Hyperlink especifica una sububicación dentro la dirección del hipervínculo. Para los archivos de Microsoft Visio, esto puede ser un nombre de página. Para Microsoft Excel, puede ser una hoja de cálculo o un rango en una hoja de cálculo. Para las páginas HTML, puede ser un subanclaje.

La dirección de hipervínculo para la que se proporciona una subdirección debe admitir la vinculación de subdirecciones.

Ejemplo:

En el ejemplo siguiente se muestra cómo utilizar la propiedad SubAddress para establecer la subdirección de un hipervínculo. Antes de ejecutar esta macro, reemplace drive\ folder\subcarpeta por una ruta de acceso válida en el equipo, reemplace la dirección por una dirección válida de Internet o intranet, reemplace la subdirección por una subdirección válida para Internet o la dirección de intranet, reemplace drawing.vsd por un archivo válido en el equipo y reemplace anchor por una página y forma válidas en el archivo.

 
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

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.