Hi,

I have this code which sets the max scale on a chart. If i type into to
the scale in the format axis box a number such as 0.013808 then my
chart scale updates. However if "p7" (as referred to in the code has a
value of 0.013808 my macro does strange things with my chart. (The
scale goes crazy and the x axis meets at the top of the chart etc).

The only obvious reason for this is that I am defining maxy as an
integer, which from my small knowledge I seem to remember has to be a
whole number. What is the alternative if I want to define it as a
number with up to 8 decimal places?

Dim maxy as integer
maxy = activesheet.range("p7")

ActiveSheet.ChartObjects("Chart 32").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 0.0004
.MaximumScale = maxy
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic

Many thanks.

Define it as Double.

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"keri" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi,
>
> I have this code which sets the max scale on a chart. If i type into to
> the scale in the format axis box a number such as 0.013808 then my
> chart scale updates. However if "p7" (as referred to in the code has a
> value of 0.013808 my macro does strange things with my chart. (The
> scale goes crazy and the x axis meets at the top of the chart etc).
>
> The only obvious reason for this is that I am defining maxy as an
> integer, which from my small knowledge I seem to remember has to be a
> whole number. What is the alternative if I want to define it as a
> number with up to 8 decimal places?
>
> Dim maxy as integer
> maxy = activesheet.range("p7")
>
> ActiveSheet.ChartObjects("Chart 32").Activate
> ActiveChart.Axes(xlValue).Select
> With ActiveChart.Axes(xlValue)
> .MinimumScale = 0.0004
> .MaximumScale = maxy
> .MinorUnitIsAuto = True
> .MajorUnitIsAuto = True
> .Crosses = xlAutomatic
>
> Many thanks.
>

Bob,

All posts have been excellent and very helpful, my thanks to everyone
who has given their time to getting me this far! I have learnt so much
and eventually will get my head around this!

I will go back and rate all posts now.

Many thanks to everyone for all of their help again.