This has to be done on a series-by-series basis:

ActiveChart.SeriesCollection(1).Smooth = True

Note that using smoothed lines can lead to false interpretations of where
the data exists: the line may curve well beyond where any data points are
plotted. Also, the line is not shaped according to any best fit of the data,
but on a smoothing algorithm based only on a few local points at a time.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______


"Sun" wrote in message
...
I created chart with timsescale as catergory type

.Axes(xlCategory, xlPrimary).CategoryType = xlTimeScale
thisChart.Axes(xlCategory).Select
Selection.TickLabels.NumberFormat = "0"

With thisChart.Axes(xlCategory)
.MajorUnit = 10
End With

I am getting a unsmooth curve , I tried to use the smooth property but it
didn;t help much is there any way i can get smooth curve ?