You are not adding the series one at at time. You are adding one series, and keep changing (overwriting) the properties of that series. Thus you end up with just one series, with the properties that you specified.
The following might work better:
Sub AddNewSeries()
ActiveSheet.Shapes.AddChart2(297, xlBarStacked).Select
With ActiveChart.SeriesCollection.NewSeries
.XValues = ActiveSheet.Range("IFPPN")
.Name = ActiveSheet.Range("$E$3")
.Values = ActiveSheet.Range("IFPStart")
End With
With ActiveChart.SeriesCollection.NewSeries
.XValues = ActiveSheet.Range("IFPPN")
.Name = ActiveSheet.Range("$G$4")
.Values = ActiveSheet.Range("IFPBC")
End With
With ActiveChart.SeriesCollection.NewSeries
.XValues = ActiveSheet.Range("IFPPN")
.Name = ActiveSheet.Range("$H$4")
.Values = ActiveSheet.Range("IFPBT")
End With
With ActiveChart.SeriesCollection.NewSeries
.XValues = ActiveSheet.Range("IFPPN")
.Name = ActiveSheet.Range("$I$4")
.Values = ActiveSheet.Range("IFPEC")
End With
With ActiveChart.SeriesCollection.NewSeries
.XValues = ActiveSheet.Range("IFPPN")
.Name = ActiveSheet.Range("$J$4")
.Values = ActiveSheet.Range("IFPFin")
End With
With ActiveChart.SeriesCollection.NewSeries
.XValues = ActiveSheet.Range("IFPPN")
.Name = ActiveSheet.Range("$K$4")
.Values = ActiveSheet.Range("IFPIMS")
End With
With ActiveChart.SeriesCollection.NewSeries
.XValues = ActiveSheet.Range("IFPPN")
.Name = ActiveSheet.Range("$L$4")
.Values = ActiveSheet.Range("IFPInf")
End With
With ActiveChart.SeriesCollection.NewSeries
.XValues = ActiveSheet.Range("IFPPN")
.Name = ActiveSheet.Range("$M$4")
.Values = ActiveSheet.Range("IFPPT")
End With
With ActiveChart.SeriesCollection.NewSeries
.XValues = ActiveSheet.Range("IFPPN")
.Name = ActiveSheet.Range("$N$4")
.Values = ActiveSheet.Range("IFPSols")
End With
End Sub
It is possible that you need a
ActiveChart.SeriesCollection(1).Delete
Right after the AddChart2
statement - on my machine, it tried to "guess" a series and got it very very wrong… but the above removed it and left me just the "good" series.
Also - I found that on the Mac, I could not use AddChart2
but had to use AddChart
instead. Not sure if that matters for you.