Partager via

Propriété TextRange.Hyperlinks (Publisher)

  • Article

Cette propriété renvoie une collection Hyperlinks représentant tous les liens hypertexte de la plage de texte spécifiée.

Syntaxe

expression. Hyperliens

Expression Variable qui représente un objet TextRange .

Valeur renvoyée

Liens hypertexte

Exemple

L’exemple suivant recherche toutes les formes de la page 1 de la composition active possédant des cadres de texte et recense le nombre de liens hypertexte que possède chaque forme.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.