Axis.Crosses procedure builder

Axis.Crosses (Word)

Returns or sets the point on the specified axis where the other axis crosses.

xlAxisCrossesAutomatic - Word sets the axis crossing point, xlAxisCrossesCustom - The CrossesAt property specifies the axis crossing point, xlAxisCrossesMaximum - The axis crosses at the maximum value, xlAxisCrossesMinimum - The axis crosses at the minimum value.

This property is not available for radar charts. For 3D charts, this property can be applied only to the value axis and indicates where the plane defined by the category axes crosses the value axis. You can use this property for both category and value axes. On the category axis, xlMinimum sets the value axis to cross at the first category, and xlMaximum sets the value axis to cross at the last category. xlMinimum and xlMaximum are constants in the xlAxisCrosses enumeration. Note that xlMinimum and xlMaximum can have different meanings, depending on the axis.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.Axes(xlCategory).Crosses = xlMaximum 
 End If 
End With