Here is the solution that I discovered:

Set oAxis = oChart.Axes(oConstants.chAxisPositionLeft)
WITH oAxis
.Scaling.Maximum = 1000000
.Scaling.Minimum = 1000
END WITH

>> Wes