Objeto Hyperlink (Publicador)

Representa un hipervínculo. El objeto Hyperlink es un miembro de los hipervínculos colección y la forma y ShapeRange objetos.

Observaciones

Utilice la propiedad Shape.Hyperlink para devolver un objeto Hyperlink asociado a una forma (una forma solo puede tener un hipervínculo).

Use Hyperlinks (index), donde index es el número de índice, para devolver un único objeto Hyperlink de un documento, rango o selección.

Utilice la ventana Agregar método para agregar un hipervínculo.

Utilice la dirección propiedad para agregar o cambiar la dirección por un hipervínculo.

Ejemplo

En el ejemplo siguiente se elimina el hipervínculo asociado con la primera forma del documento activo.

Sub DeleteHyperlink() 
 ActiveDocument.Pages(1).Shapes(1).Hyperlink.Delete 
End Sub

En el ejemplo siguiente se elimina el primer hipervínculo de la selección.

Sub DeleteSelectedHyperlink() 
 If Selection.TextRange.Hyperlinks.Count >= 1 Then 
 Selection.TextRange.Hyperlinks(1).Delete 
 End If 
End Sub

En el ejemplo siguiente se agrega un hipervínculo al texto seleccionado.

Sub AddHyperlinkToSelectedText() 
 Selection.TextRange.Hyperlinks.Add Text:=Selection.TextRange, _ 
 Address:="https://www.tailspintoys.com/" 
End Sub

En el ejemplo siguiente se agrega una forma a la publicación activa y, a continuación, se agrega un hipervínculo a la forma.

Sub AddHyperlinkToShape() 
 With ActiveDocument.Pages(1).Shapes.AddShape _ 
 (Type:=msoShape5pointStar, Left:=200, _ 
 Top:=200, Width:=300, Height:=300) 
 .Hyperlink.Address = "https://www.tailspintoys.com/" 
 End With 
End Sub

Métodos

• Delete
• SetPageRelative

Propiedades

• Address
• Application
• EmailSubject
• PageID
• Parent
• Rango
• Shape
• TargetType
• TextToDisplay
• Type

Vea también

• Referencia del modelo de objetos de Publisher

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.