Klasse Hyperlink (Excel VBA)

Die Klasse Hyperlink stellt einen Hyperlink dar.

Die wichtigste Prozeduren der Klasse Hyperlink sind Delete, Hyperlinks.Add und Hyperlinks.Delete

Set

Um eine Hyperlink -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim hyp as Hyperlink
Set hyp = ActiveCell.Hyperlinks(Index:=1)

Die folgenden Prozeduren können zum Festlegen der Hyperlink Klassenvariablen verwendet werden : Hyperlinks.Item, Hyperlinks.Add, Shape.Hyperlink, Chart.Hyperlinks, Range.Hyperlinks und Worksheet.Hyperlinks

For Each

Hier ist ein Beispiel für die Verarbeitung der Hyperlink -Elemente in einer Sammlung

Dim hyp As Hyperlink
For Each hyp In ActiveCell.Hyperlinks
	
Next hyp

Methoden

Die Hauptmethoden der Klasse Hyperlink sind

Delete - Löscht das Objekt.

ActiveCell.Hyperlinks(1).Delete

Hyperlinks.Add - Fügt dem angegebenen Bereich oder der Form einen Hyperlink hinzu.

Dim strAddress As String: strAddress = 
Dim hyp As Hyperlink
Set hyp = ActiveCell.Hyperlinks.Add(Anchor:=, Address:=strAddress)

Hyperlinks.Delete - Löscht das Objekt.

ActiveCell.Hyperlinks.Delete

Andere Methoden

AddToFavorites - Fügt dem Favoritenordner eine Verknüpfung zur Arbeitsmappe oder zum Hyperlink hinzu.

CreateNewDocument - Erstellt ein neues, mit dem angegebenen Hyperlink verknüpftes Dokument.

Follow - Zeigt ein zwischengespeichertes Dokument an, wenn es bereits heruntergeladen wurde.

Eigenschaften

Address Gibt einen String-Wert zurück, der die Adresse des Zieldokuments darstellt, oder legt diesen fest.

ActiveCell.Hyperlinks(1).Address =

EmailSubject Gibt die Textzeichenfolge der e-Mail-Betreffzeile des angegebenen Hyperlinks zurück oder legt diese fest.

ActiveCell.Hyperlinks(1).EmailSubject =

Name Gibt einen String -Wert, der den Namen des Objekts darstellt.

Dim strName As String
strName = ActiveCell.Hyperlinks(1).Name

Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveCell.Hyperlinks(1).Parent

Range Gibt ein Range -Objekt zurück, das den Range darstellt, dem der angegebene Hyperlink zugeordnet ist.

Dim rngRange As Range
Set rngRange = ActiveCell.Hyperlinks(1).Range

ScreenTip Gibt den QuickInfo-Text für den angegebenen Hyperlink zurück oder legt diesen fest.

ActiveCell.Hyperlinks(1).ScreenTip =

Shape Gibt ein Shape -Objekt zurück, das die Form darstellt, die dem angegebenen Hyperlink zugeordnet ist.

Dim shpShape As Shape
Set shpShape = ActiveCell.Hyperlinks(1).Shape

SubAddress Gibt die Position innerhalb des mit dem Hyperlink verbundenen Dokuments zurück oder legt sie fest.

ActiveCell.Hyperlinks(1).SubAddress =

TextToDisplay Gibt den Text, der für den angegebenen Hyperlink angezeigt werden soll, zurück oder legt diesen fest.

ActiveCell.Hyperlinks(1).TextToDisplay =

Type Gibt einen Long -Wert zurück, der eine MsoHyperlinkType -Konstante enthält, die die Position des HTML-Frames darstellt.

Dim msohType As MsoHyperlinkType
msohType = ActiveCell.Hyperlinks(1).Type

Hyperlinks.Count Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveCell.Hyperlinks.Count

Hyperlinks.Item Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Dim hypItem As Hyperlink
Set hypItem = ActiveCell.Hyperlinks(Index:=1)

Hyperlinks.Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveCell.Hyperlinks.Parent