Macro to Change Y Axis

[rustyfishbones]

Hi All,

I have the following code that creates a Scatter Chart

SUB CreateScatterChart

SET chart = ActiveDocument.Sheets("Main").CreateScatterChart

chart.AddDimension "Company"

chart.AddExpression "sum( round (256*pow(2,($(var_zoom)-1)))+( lng  *((256*pow(2,$(var_zoom)))/360)))"

chart.AddExpression "sum(((256*pow(2,($(var_zoom)-1)))+((0.5*log((1+(sin((lat)*pi()/180)))/(1-(sin((lat)*pi()/180)))))*((-256*pow(2,$(var_zoom)))/(2*pi()))))) "

chart.AddExpression "SUM(Licenses)"

SET cp = chart.GetProperties

cp.Expressions.Item(0).Item(0).Data.AxisData.Min.v = "=(256*pow(2,($(var_zoom)-1)))+( var_mid_long  *((256*pow(2,$(var_zoom)))/360)) -round(map_size_x/2)"

cp.Expressions.Item(0).Item(0).Data.AxisData.Max.v = "=( (256*pow(2,($(var_zoom)-1)))+( var_mid_long  *((256*pow(2,$(var_zoom)))/360)) + round(map_size_x/2))"

cp.Expressions.Item(0).Item(0).Data.AxisData.Force0 = false

cp.Expressions.Item(0).Item(0).Data.AxisData.Grid = false

chart.SetProperties cp

'Cleanup

SET chart = nothing

SET cp = nothing

END SUB

And I get the following result, but how can I also set the Y Axis with similar Value through the Macro.