Chart.ChartGroups (Word)

Devuelve un objeto que representa un solo grupo de gráficos o una colección de todos los grupos de gráficos del gráfico.

ChartGroups (Index)

Index: El número del grupo de gráficos.

With ActiveDocument.InlineShapes(1).Chart.ChartGroups(1) 
 .HasUpDownBars = True 
 .DownBars.Interior.ColorIndex = 3 
 .UpBars.Interior.ColorIndex = 5 
End With