Series.ErrorBars (Word)

Returns the error bars for the series.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.SeriesCollection(1) 
 .ErrorBars.Border.ColorIndex = 8 
 End With 
 End If 
End With