Changing decimal place of y-axis in chart with vba

I have a macro that creates charts for alot of people. I cant seem to figure out how to change the decimal placing of the y-axis in vba. Right now it is at 2 decimal places (which is the default) and I dont want it to show any decimal places, just the whole number. Does anyone kow the code that will allow me to do this? The code for my macro is below. Any help would be appreciated.

Thanks
Jonathan


Sub Chart()



Dim i As Long
Dim n As Long
Dim wsh As Worksheet
Dim cho As ChartObject
Dim cht As Chart
Set wsh = Worksheets("Emp Data")
n = wsh.Range("A65536").End(xlUp).Row
For i = 2 To n
Set cho = wsh.ChartObjects.Add(Top:=160 * i - 310, Left:=10, _
Height:=150, Width:=300)
Set cht = cho.Chart
cht.ChartType = xlColumnClustered
cht.SeriesCollection.Add Source:=wsh.Range("F" & i)
cht.SeriesCollection.Add Source:=wsh.Range("N" & i)
cht.SeriesCollection.Add Source:=wsh.Range("P" & i)
cht.SeriesCollection(1).Name = "taint"
cht.SeriesCollection(2).Name = "4%"
cht.SeriesCollection(3).Name = "bump it"
cht.HasAxis(xlCategory) = False
cht.ApplyDataLabels (xlDataLabelsShowValue)

Next i
End Sub

The macro record is useful for generating the base syntax for a problem
like this.

cht.Axes(xlValue).TickLabels.NumberFormat = "0"

Cheers
Andy

jtr9999 wrote:
> I have a macro that creates charts for alot of people. I cant seem to
> figure out how to change the decimal placing of the y-axis in vba.
> Right now it is at 2 decimal places (which is the default) and I dont
> want it to show any decimal places, just the whole number. Does anyone
> kow the code that will allow me to do this? The code for my macro is
> below. Any help would be appreciated.
>
> Thanks
> Jonathan
>
>
> Sub Chart()
>
>
>
> Dim i As Long
> Dim n As Long
> Dim wsh As Worksheet
> Dim cho As ChartObject
> Dim cht As Chart
> Set wsh = Worksheets("Emp Data")
> n = wsh.Range("A65536").End(xlUp).Row
> For i = 2 To n
> Set cho = wsh.ChartObjects.Add(Top:=160 * i - 310, Left:=10, _
> Height:=150, Width:=300)
> Set cht = cho.Chart
> cht.ChartType = xlColumnClustered
> cht.SeriesCollection.Add Source:=wsh.Range("F" & i)
> cht.SeriesCollection.Add Source:=wsh.Range("N" & i)
> cht.SeriesCollection.Add Source:=wsh.Range("P" & i)
> cht.SeriesCollection(1).Name = "taint"
> cht.SeriesCollection(2).Name = "4%"
> cht.SeriesCollection(3).Name = "bump it"
> cht.HasAxis(xlCategory) = False
> cht.ApplyDataLabels (xlDataLabelsShowValue)
>
> Next i
> End Sub
>
>

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info