Axis.Border (Word)

Returns the border of the object.

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