Series.PlotColorIndex (Word)

Returns an index value that is used internally to associate series formatting with chart elements.

This property is used internally by Excel and is not intended to be called from your code.

Dim lngPlotColorIndex As Long
lngPlotColorIndex = ActiveDocument.Background.Chart.FullSeriesCollection(1).PlotColorIndex