Series.Border (Word)

Returns the border of the object.

Dim cbrBorder As ChartBorder
Set cbrBorder = ActiveDocument.Background.Chart.FullSeriesCollection(1).Border