Series.ErrorBars (Word)
Retorna as barras de erro da série. ErrorBars somente leitura.
With ActiveDocument.InlineShapes(1)
If .HasChart Then
With .Chart.SeriesCollection(1)
.ErrorBars.Border.ColorIndex = 8
End With
End If
End With