Compartir a través de

Método Hyperlink.CreateURL (Visio)

  • Artículo

Devuelve una representación completa y opcionalmente canónica de la dirección absoluta del hipervínculo.

Sintaxis

expresión. CreateURL( _CanonicalForm_ )

Expresión Variable que representa un objeto Hyperlink .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
CanonicalForm Obligatorio Integer Su valor es True (valor distinto de cero) para una forma canónica; en caso contrario, su valor es False (0).

Valor devuelto

Cadena

Comentarios

El método CreateURL del objeto Hyperlink puede utilizarse para resolver direcciones URL relativas con la dirección base de un hipervínculo.

Cuando se utiliza la forma canónica, el método CreateURL aplica las reglas de canonización de direcciones URL al hipervínculo. Durante la canonización, sólo se codifican los espacios como dirección URL. Se supone que el puerto 80 es para direcciones URL HTTP y se quita durante la canonización. Por ejemplo, la dirección URL "https://www.microsoft.com:80/" se devuelve como "https://www.microsoft.com/", mientras que https://www.microsoft.com:1000/" no se modifica.

Ejemplo:

A continuación figuran algunos ejemplos de los resultados del método 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"

Ejemplo de ruta relativa:

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

En el siguiente ejemplo se muestra cómo utilizar el método CreateURL para resolver direcciones URL relativas con la dirección base de un hipervínculo. Antes de ejecutar esta macro, reemplace drive\folder\subcarpeta por una ruta de acceso de archivo válida en el equipo, reemplace la dirección por una dirección válida de Internet o intranet y reemplace drawing.vsd por un archivo válido en el equipo.

 
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

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.