Klasse Hyperlinks - die Auflistung der Hyperlinks für ein Arbeitsblatt oder einen Bereich (Excel VBA)
Die Klasse Hyperlinks stellt die Auflistung der Hyperlinks für ein Arbeitsblatt oder einen Bereich dar. Um eine Hyperlinks -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim hyps as Hyperlinks
Set hyps = ActiveCell.Hyperlinks
For Each
Hier ist ein Beispiel für die Verarbeitung der Hyperlinks -Elemente in einer Sammlung
Dim hyp As Hyperlink
For Each hyp In ActiveCell.Hyperlinks
Next hyp
Add
Fügt dem angegebenen Bereich oder der Form einen Hyperlink hinzu.
Wenn Sie das Argument TextToDisplay angeben, muss der Text eine Zeichenfolge sein.
Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="https://example.microsoft.com", _
ScreenTip:="Microsoft Web Site", _
TextToDisplay:="Microsoft"
End With
Arguments
Hier sind die benannte Argumente :
Anchor (Shape) - Anker für den Hyperlink.
Address - String
Optional arguments
Die folgenden Argumente sind optional
SubAddress (String) - Unteradresse des Hyperlinks.
ScreenTip (String) - Der Bildschirmtipp, der angezeigt wird, wenn der Mauszeiger über dem Hyperlink platziert wird.
TextToDisplay (String) - Der Text, der für den Hyperlink angezeigt wird.
Count
Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.
Dim lngCount As Long
lngCount = ActiveCell.Hyperlinks.Count
Delete
Löscht das Objekt.
Das Aufrufen der Delete -Methode für das angegebene Hyperlinks -Objekt entspricht der Verwendung der Befehle Clear Hyperlinks und Clear Formats aus der Dropdown-Liste Clear im Abschnitt Bearbeiten des ** **Registerkarte Start. Nicht nur Hyperlinks werden entfernt; Zellenformatierungen werden ebenfalls entfernt.
ActiveCell.Hyperlinks.Delete
Item
Gibt ein einzelnes Objekt aus einer Auflistung zurück.
Item (Index)
Index: Der Name oder die Indexnummer des Objekts.
Worksheets(1).Range("E5").Hyperlinks.Item(1).Follow