Klasse LegendEntry (Word VBA)

Die Klasse LegendEntry stellt einen Legendeneintrag in einer Diagrammlegende dar.

Die wichtigste Prozeduren der Klasse LegendEntry sind Delete und Select

Set

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

Dim lgne as LegendEntry
Set lgne = ActiveDocument.Background.Chart.Legend.LegendEntries(Index:=1)

Die folgenden Prozeduren können zum Festlegen der LegendEntry Klassenvariablen verwendet werden : Legend.LegendEntries und LegendEntries.Item

For Each

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

Dim lgne As LegendEntry
For Each lgne In ActiveDocument.Background.Chart.Legend.LegendEntries()
	
Next lgne

Themas

Die folgenden Prozeduren in dieser Klasse wurden zusammengefasst und auf eine separate Themenseite beschrieben

Format with its procedures Font und Format

Methoden

Die Hauptmethoden der Klasse LegendEntry sind

Delete - Löscht das Objekt.

ActiveDocument.Background.Chart.Legend.LegendEntries(1).Delete

Select - Markiert das Objekt.

ActiveDocument.Background.Chart.Legend.LegendEntries(1).Select

Eigenschaften

LegendEntries.Count Gibt die Anzahl der Objekte in der Auflistung zurück.

Dim lngCount As Long
lngCount = ActiveDocument.Background.Chart.Legend.LegendEntries.Count

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

Dim objParent As Object
Set objParent = ActiveDocument.Background.Chart.Legend.LegendEntries.Parent

Height Gibt die Höhe des Objekts in Punktzurück.

Dim dblHeight As Double
dblHeight = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Height

Index Gibt die Indexnummer des Objekts in einer Auflistung ähnlicher Objekte zurück.

Dim lngIndex As Long
lngIndex = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Index

Left Gibt den Abstand (in Punkt) vom linken Rand des Objekts zum linken Rand des Diagrammbereichs zurück.

Dim dblLeft As Double
dblLeft = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Left

LegendKey Gibt das Legendensymbol an, das dem Eintrag zugeordnet ist.

Dim lkyLegendKey As LegendKey
Set lkyLegendKey = ActiveDocument.Background.Chart.Legend.LegendEntries(1).LegendKey

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

Dim objParent As Object
Set objParent = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Parent

Top Gibt den Abstand (in Punkt) vom oberen Rand des Objekts zum Anfang der ersten Zeile (auf einem Arbeitsblatt) oder der oberen Seite des Diagrammbereichs (in einem Diagramm) zurück.

Dim dblTop As Double
dblTop = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Top

Width Gibt die Breite des Objekts in Punktzurück.

Dim dblWidth As Double
dblWidth = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Width