Changing decimal place of y-axis in chart with vba

[jtr9999]

I have a macro that creates charts for alot of people. I cant seem t
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 don
want it to show any decimal places, just the whole number. Does anyon
kow the code that will allow me to do this? The code for my macro i
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 Su

 

[Andy Pope]

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

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

Cheers
Andy