Propiedad TextRange.Hyperlinks (Publisher)

Devuelve una colección Hyperlinks que representa todos los hipervínculos del intervalo de texto especificado.

Sintaxis

expresión. Hipervínculos

expresión Variable que representa un objeto TextRange .

Valor devuelto

Hyperlinks

Ejemplo

En el siguiente ejemplo se buscan todas las formas de la primera página de la publicación activa que tienen marcos de texto y se indica el número de hipervínculos que tiene cada una.

Dim hypAll As Hyperlinks 
Dim shpLoop As Shape 
 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 If shpLoop.HasTextFrame = msoTrue Then 
 Set hypAll = shpLoop.TextFrame.TextRange.Hyperlinks 
 Debug.Print "Shape " & shpLoop.Name _ 
 & " has " & hypAll.Count & " hyperlinks." 
 End If 
Next shpLoop

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.