Freigeben über

TextRange.Hyperlinks-Eigenschaft (Publisher)

  • Artikel

Gibt eine Hyperlinks -Auflistung zurück, die alle Hyperlinks im angegebenen Textbereich darstellt.

Syntax

Ausdruck. Hyperlinks

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Rückgabewert

Hyperlinks

Beispiel

Im folgenden Beispiel werden alle Formen auf Seite 1 der aktiven Publikation, die Textrahmen aufweisen gesucht und anschließend gemeldet, wie viele Hyperlinks die einzelnen Formen aufweisen.

Dim hypAll As Hyperlinks 
Dim shpLoop As Shape 
 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 If shpLoop.HasTextFrame = msoTrue Then 
 Set hypAll = shpLoop.TextFrame.TextRange.Hyperlinks 
 Debug.Print "Shape " & shpLoop.Name _ 
 & " has " & hypAll.Count & " hyperlinks." 
 End If 
Next shpLoop

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.