Méthode Hyperlink.SetPageRelative (Publisher)
Définit le type de destination pour le lien hypertexte spécifié.
Syntaxe
expression. SetPageRelative (RelativePage)
Expression Variable qui représente un objet Hyperlink .
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
RelativePage | Requis | PbHlinkTargetType | Type de destination du lien hypertexte. Il peut s’agir de l’une des constantes PbHlinkTargetType déclarées dans la bibliothèque de type Microsoft Publisher. |
Exemple
L’exemple suivant ajoute quatre nouveaux liens hypertexte à la forme un de la page un de la composition active et définit leurs destinations en conséquence.
Sub SetHyperlinkRelativeTarget()
Dim hypNew As Hyperlink
Dim txtRng As TextRange
ActiveDocument.Pages(1).Shapes _
.AddTextbox Orientation:=pbTextOrientationHorizontal, _
Left:=10, Top:=10, Width:=200, Height:=200
Set txtRng = ActiveDocument.Pages(1).Shapes(1) _
.TextFrame.TextRange
txtRng.Text = "First Page" & vbCrLf
Set txtRng = ActiveDocument.Pages(1).Shapes(1) _
.TextFrame.TextRange
Set hypNew = ActiveDocument.Pages(1).Shapes(1).TextFrame _
.TextRange.Hyperlinks.Add(Text:=txtRng, _
Address:="https://www.tailspintoys.com/")
'Change hyperlink to be a Page-relative link
hypNew.SetPageRelative RelativePage:=pbHlinkTargetTypeFirstPage
txtRng.Collapse pbCollapseEnd
txtRng.Text = "Previous Page" & vbCrLf
Set hypNew = ActiveDocument.Pages(1).Shapes(1).TextFrame _
.TextRange.Hyperlinks.Add(Text:=txtRng, _
Address:="https://www.tailspintoys.com/")
hypNew.SetPageRelative RelativePage:=pbHlinkTargetTypePreviousPage
txtRng.Collapse pbCollapseEnd
txtRng.Text = "Next Page" & vbCrLf
Set hypNew = ActiveDocument.Pages(1).Shapes(1) _
.TextFrame.TextRange.Hyperlinks.Add(Text:=txtRng, _
Address:="https://www.tailspintoys.com/")
hypNew.SetPageRelative RelativePage:=pbHlinkTargetTypeNextPage
txtRng.Collapse pbCollapseEnd
txtRng.Text = "Last Page" & vbCrLf
Set hypNew = ActiveDocument.Pages(1).Shapes(1) _
.TextFrame.TextRange.Hyperlinks.Add(Text:=txtRng, _
Address:="https://www.tailspintoys.com/")
hypNew.SetPageRelative RelativePage:=pbHlinkTargetTypeLastPage
End Sub
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour