This example changes the trendline type for the first series in embedded chart one on worksheet one. If the series has no trendline, this example fails.
Worksheets(1).ChartObjects(1).Chart _
.SeriesCollection(1).Trendlines(1).Type = xlMovingAvg