Axis.Border (PowerPoint)

Returns the border of the object.

Dim cbrBorder As ChartBorder
Set cbrBorder = ActiveWindow.RangeFromPoint.Chart.Axes(1).Border