Classe ChartGroups - sequências plotadas em um gráfico (Word VBA)

A classe ChartGroups representa uma ou mais sequências plotadas em um gráfico com o mesmo formato. Para usar uma variável de classe ChartGroups, ela primeiro precisa ser instanciada por exemplo

Dim cgs as ChartGroups
Set cgs = ActiveDocument.Background.Chart.ChartGroups

For Each

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

Dim chrg As ChartGroup
For Each chrg In ActiveDocument.Background.Chart.ChartGroups
	
Next chrg

Count

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

Dim lngCount As Long
lngCount = ActiveDocument.Background.Chart.ChartGroups.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.ChartGroups.Item(1).HasDropLines = True 
 End If 
End With