Pivotchart Scaling

[progTiger]

I am trying to set the vertical axis(xlValue) scale on a
pivotchart by code, does anyone know how to do this. The
Excel equalvalent is;

With ActiveChart()
.Axes(xlValue).MinimumScale = 0
.Axes(xlValue).MaximumScale = 100
End With

I am trying to do something like this with a sub form that
is a pivotchart;

dblMinScale = DMin("Lo", "dbo_Historical_Data", "Symbol
='" & Forms!Stock_Chart.Symbol & "' And _
Dt > (Date - 90)
dblMinScale = DMax("Hi", "dbo_Historical_Data", "Symbol
='" & Forms!Stock_Chart.Symbol & "' And _
Dt > (Date - 90)
With ActiveChart()
.Axes(xlValue).MinimumScale = dblMinScale
.Axes(xlValue).MaximumScale = dblMaxScale
End With

I have tried changing the object(ActiveChart) to the sub
form name and still does not work.

I would really appreciate your help.

Tiger