Classe LegendEntries (Word VBA)

Uma coleção de todos os objetos LegendEntry na legenda do gráfico especificado. Para usar uma variável de classe LegendEntries, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens LegendEntries em uma coleção.

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

Count

Retorna o número de objetos na coleção. Long somente leitura.

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

Item

Retorna um único objeto de uma coleção.

Item (Index)

Index: O número de índice do objeto.

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