Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Agrega un nuevo objeto Hyperlink a la colección Hyperlinks especificada y devuelve el nuevo objeto Hyperlink .
Sintaxis
expresión. Agregar (Text, Address, RelativePage, PageID, TextToDisplay)
expression Variable que representa un objeto Hyperlinks.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Text | Obligatorio | TextRange | Objeto TextRange. El intervalo de texto que va a convertirse en un hipervínculo. |
| Address | Opcional | String | La dirección del nuevo hipervínculo. Si RelativePage es pbHlinkTargetTypeURL (valor predeterminado) o pbHlinkTargetTypeEmail, se debe especificar Address o se produce un error. |
| RelativePage | Opcional | PbHlinkTargetType | Tipo de hipervínculo que se va a agregar. Puede ser una de las constantes PbHlinkTargetType ; el valor predeterminado es pbHlinkTargetTypeURL. |
| PageID | Opcional | Long | El identificador de página de la página de destino para el nuevo hipervínculo. Si RelativePage es pbHlinkTargetTypePageID, se debe especificar PageID o se produce un error. El identificador de página corresponde a la propiedad PageID de la página de destino. |
| TextToDisplay | Opcional | String | Texto para mostrar del nuevo hipervínculo. Si se especifica, TextToDisplay reemplaza el intervalo de texto especificado por el argumento de texto. |
Valor devuelto
Hyperlink
Ejemplo
En el siguiente ejemplo se agregan hipervínculos a la primera y segunda forma de la primera página de la publicación activa. El primer hipervínculo apunta a un sitio web externo y el segundo vínculo apunta a la cuarta página de la publicación. La forma uno y la forma dos deben ser cuadros de texto y debe haber al menos cuatro páginas en la publicación para que funcione este ejemplo.
Dim hypNew As Hyperlink
Dim lngPageID As Long
Dim strPage As String
With ActiveDocument.Pages(1).Shapes(1).TextFrame
Set hypNew = .TextRange.Hyperlinks.Add(Text:=.TextRange, _
Address:="https://www.tailspintoys.com/", _
TextToDisplay:="Tailspin")
End With
lngPageID = ActiveDocument.Pages(4).PageID
strPage = "Go to page " _
& Str(ActiveDocument.Pages(4).PageNumber)
With ActiveDocument.Pages(1).Shapes(2).TextFrame
Set hypNew = .TextRange.Hyperlinks.Add(Text:=.TextRange, _
RelativePage:=pbHlinkTargetTypePageID, _
PageID:=lngPageID, _
TextToDisplay:=strPage)
End With
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.