Klasse LegendEntry - Legendeneintrag (Excel VBA)

Die Klasse LegendEntry stellt einen Legendeneintrag in der Diagrammlegende dar. Um eine LegendEntry -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim lgne as LegendEntry
Set lgne = ActiveChart.Legend.LegendEntries(Index:=1)

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

Delete

Löscht das Objekt.

ActiveChart.Legend.LegendEntries(1).Delete

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

Select

Markiert das Objekt.

ActiveChart.Legend.LegendEntries(1).Select

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