This example splits the specified axis and sets the split minimum and split maximum values.
Set c = ChartSpace1.Constants
Set axisScale = ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).Scaling
axisScale.HasSplit = True
axisScale.SplitMinimum = 17000
axisScale.SplitMaximum = 45000