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 Hipervínculo a la colección de hipervínculos especificada y devuelve el nuevo objeto Hipervínculo .
Sintaxis
más sencilla.Agregar (texto, dirección, 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 (predeterminado) o pbHlinkTargetTypeEmail, se debe especificar la dirección 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 enlace apunta a la cuarta página de la publicación. Las formas uno y dos deben ser cuadros de texto y debe haber al menos cuatro páginas en la publicación para que este ejemplo funcione.
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.