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 renvoie le nouvel objet Hyperlink .
Syntaxe
expression. Ajouter (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, l’adresse doit être spécifiée, sinon une erreur se produit. |
| Page relative | Facultatif | PbHlinkTargetType | Type de lien hypertexte à ajouter. Peut être 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 est 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 hyperlien pointe vers un site Web externe, et le deuxième lien vers la quatrième page de la publication. La première et la deuxième formes doivent être des zones de texte et la composition doit comporter au moins quatre pages 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.