Hyperlinks.Add-Methode (Publisher)

Artikel
04/07/2023

Fügt der angegebenen Hyperlinks-Auflistung ein neues Hyperlink-Objekt hinzu und gibt das neue Hyperlink-Objekt zurück.

Syntax

Ausdruck. Add (Text, Address, RelativePage, PageID, TextToDisplay)

expression Eine Variable, die ein Hyperlinks-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Text	Erforderlich	TextRange	TextRange -Objekt. Der Textbereich, in einen Hyperlink konvertiert werden soll.
Address	Optional	String	Die Adresse des neuen Hyperlinks. Wenn RelativePagepbHlinkTargetTypeURL (Standard) oder pbHlinkTargetTypeEmail ist, muss Address angegeben werden, andernfalls tritt ein Fehler auf.
RelativePage	Optional	PbHlinkTargetType	Der Typ des hinzuzufügenden Hyperlinks. Kann eine der PbHlinkTargetType-Konstanten sein. Der Standardwert ist pbHlinkTargetTypeURL.
PageID	Optional	Long	Die Seiten-ID der Zielseite für den neuen Hyperlink. Wenn RelativePagepbHlinkTargetTypePageID ist, muss PageID angegeben werden, andernfalls tritt ein Fehler auf. Die Seiten-ID entspricht der PageID -Eigenschaft der Zielseite.
TextToDisplay	Optional	String	Der Anzeigetext des neuen Hyperlinks. Wenn angegeben, ersetzt TextToDisplay den durch das Argument Text angegebenen Textbereich ein.

Rückgabewert

Hyperlink

Beispiel

Im folgenden Beispiel werden den Formen 1 und 2 auf Seite 1 der aktiven Publikation Hyperlinks hinzugefügt. Der erste Link verweist auf eine externe Website, und der zweite Link verweist auf die vierte Seite der Publikation. Form 1 und Form 2 müssen Textfelder sein, und es müssen mindestens vier Seiten in der Publikation vorhanden sein, damit dieses Beispiel funktioniert.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über