Chart.ChartArea (Word)

Retorna toda a área do gráfico. Somente leitura ChartArea.

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