Chart.ChartArea (Word)

Devuelve todo el área del gráfico.

With ActiveDocument.InlineShapes(1).Chart.ChartArea 
 .Interior.ColorIndex = 3 
 .Border.ColorIndex = 5 
End With