Alternative to integer?
 

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.

Alternative to integer?
 

Define it as Double.

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"keri" wrote in message
oups.com...
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.

Alternative to integer?
 

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.