Klasse LegendEntries (Word VBA)

Eine Auflistung aller LegendEntry -Objekte in der angegebenen Diagrammlegende. Um eine LegendEntries -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim les as LegendEntries
Set les = ActiveDocument.Background.Chart.Legend.LegendEntries()

For Each

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

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

Count

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

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

Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Item (Index)

Index: Die Indexnummer für das Objekt

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.Legend.LegendEntries.Item(1). _ 
 Font.Italic = True 
 End If 
End With