Hyperlinks.Add, méthode (Publisher)

Article
04/07/2023

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

Hyperlink

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 deuxième lien pointe 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.

Partager via