Chart.PlotArea (Word)

Returns the plot area of a chart.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.PlotArea.Interior.ColorIndex = 8 
 End If 
End With