Chart.ChartArea (Word)

Returns the complete chart area for the chart.

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