Klasse LegendEntry - Legendeneintrag (Word VBA)

Die Klasse LegendEntry stellt einen Legendeneintrag in einer Diagrammlegende dar. 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)

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

Delete

Löscht das Objekt.

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

Font

Gibt die Schriftart des angegebenen Objekts zurück.

Dim cftFont As ChartFont
Set cftFont = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Font

Format

Gibt die Linien-, Füll- und effektformatierung für das Objekt.

Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveDocument.Background.Chart.Legend.LegendEntries(1).Format

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.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.Legend.LegendEntries(1).LegendKey _ 
 .MarkerStyle = xlMarkerStyleTriangle 
 End If 
End With

Select

Markiert das Objekt.

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

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