expression.Scaling
expression Required. An expression that returns a ChAxis object.
Example
This example adds a second value (y) axis to the right side of the specified chart. The second axis uses the same scale as the primary value axis.
Sub AddAxis()
Dim chConstants
Dim axisScale
Set chConstants = ChartSpace1.Constants
Set axisScale = ChartSpace1.Charts(0).Axes(chConstants.chAxisPositionLeft).Scaling
ChartSpace1.Charts(0).Axes.Add axisScale
End Sub