Klasse LegendEntry (Excel VBA)

Die Klasse LegendEntry stellt einen Legendeneintrag in der 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 = ActiveChart.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 lgneLegendEntrie As LegendEntry
For Each lgneLegendEntrie In ActiveChart.Legend.LegendEntries()
	
Next lgneLegendEntrie

Methoden

Die Hauptmethoden der Klasse LegendEntry sind

Delete - Löscht das Objekt.

ActiveChart.Legend.LegendEntries(1).Delete

Select - Markiert das Objekt.

ActiveChart.Legend.LegendEntries(1).Select

Andere Methoden

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

Eigenschaften

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

Dim lngCount As Long
lngCount = ActiveChart.Legend.LegendEntries.Count

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

Dim objParent As Object
Set objParent = ActiveChart.Legend.LegendEntries.Parent

Font Gibt ein Font -Objekt zurück, das die Schriftart des angegebenen Objekts darstellt.

Dim fntFont As Font
Set fntFont = ActiveChart.Legend.LegendEntries(1).Font

Format Gibt das ChartFormat -Objekt zurück.

Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveChart.Legend.LegendEntries(1).Format

Height Gibt einen Double -Wert zurück, der die Höhe des Objekts in Punktendarstellt.

Dim dblHeight As Double
dblHeight = ActiveChart.Legend.LegendEntries(1).Height

Index Gibt einen Long-Wert zurück, der die Indexnummer des Objekts in der Auflistung ähnlicher Objekte darstellt.

Dim lngIndex As Long
lngIndex = ActiveChart.Legend.LegendEntries(1).Index

Left Gibt einen Double -Wert zurück, der den Abstand (in Punkt) vom linken Rand des Objekts zum linken Rand des Diagrammbereichs darstellt.

Dim dblLeft As Double
dblLeft = ActiveChart.Legend.LegendEntries(1).Left

LegendKey Gibt ein LegendKey -Objekt zurück, das den dem Eintrag zugeordneten Legendenschlüssel darstellt.

Dim lkyLegendKey As LegendKey
Set lkyLegendKey = ActiveChart.Legend.LegendEntries(1).LegendKey

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

Dim objParent As Object
Set objParent = ActiveChart.Legend.LegendEntries(1).Parent

Top Gibt einen Double -Wert zurück, der den Abstand (in Punkt) vom oberen Rand des Objekts zum Anfang der Zeile 1 (auf einem Arbeitsblatt) oder zum oberen Bereich des Diagrammbereichs (in einem Diagramm) darstellt.

Dim dblTop As Double
dblTop = ActiveChart.Legend.LegendEntries(1).Top

Width Gibt einen Double -Wert zurück, der die Breite des Objekts in Punktdarstellt.

Dim dblWidth As Double
dblWidth = ActiveChart.Legend.LegendEntries(1).Width