New Post: Howto add an Excel chart series programatically

Please can you help me? In VBA what I want would be:

ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = "=""Series1"""
ActiveChart.FullSeriesCollection(1).XValues = "={1,2,3,4,5}"
ActiveChart.FullSeriesCollection(1).Values = "={1,3,5,7,9}"