Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Ajoute un nouvel objet Hyperlink à la collection Hyperlinks spécifiée et retourne le nouvel objet Hyperlink .
Syntaxe
expression. Add (Text, Address, RelativePage, PageID, TextToDisplay)
expression Variable qui représente un objet lien hypertexte.
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Text | Obligatoire | TextRange | Objet TextRange. La plage de texte à convertir en lien hypertexte. |
| Adresse | Facultatif | Chaîne | L'adresse du nouveau lien hypertexte. Si RelativePage est pbHlinkTargetTypeURL (par défaut) ou pbHlinkTargetTypeEmail, Address doit être spécifié, sinon une erreur se produit. |
| RelativePage | Facultatif | PbHlinkTargetType | Type de lien hypertexte à ajouter. Il peut s’agir de l’une des constantes PbHlinkTargetType ; la valeur par défaut est pbHlinkTargetTypeURL. |
| PageID | Facultatif | Entier long | L'ID de la page de la page de destination pour le nouveau lien hypertexte. Si RelativePage a la valeur pbHlinkTargetTypePageID, PageID doit être spécifié, sinon une erreur se produit. L'ID de la page correspond à la propriété PageID de la page de destination. |
| TextToDisplay | Facultatif | Chaîne | Le texte d'affichage du nouveau lien hypertexte. Si spécifié, TextToDisplay remplace la plage de texte spécifiée par l'argument texte. |
Valeur renvoyée
Lien hypertexte
Exemple
L'exemple suivant ajoute des liens hypertexte aux formes un et deux de la première page de la composition active. Le premier lien hypertexte pointe vers un site web externe, et le second vers la quatrième page de la composition. La forme 1 et la forme 2 doivent être des zones de texte, et il doit y avoir au moins quatre pages dans la composition pour que cet exemple fonctionne.
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
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.