Why are some series temporarily missing from my Excel chart? - vba

Question

I am producing an Excel column chart from a VB macro. I added 3 horizontal reference lines and find that when the macro completes, only the first one appears (along with the column chart). However, if I save the workbook and reopen it, all 3 reference lines are visible. Alternatively, if I go to the design tab to "Select Data" and simply click on any one of the reference line names, all 3 immediately appear. Any ideas on what I can put in my macro to get them all to appear automatically when the macro completes?
The code that creates these 3 reference lines is (sc is the chart's SeriesCollection):
With sc.NewSeries
.ChartType = xlXYScatterLinesNoMarkers
.Name = "A"
.XValues = "={1,3}"
.Values = "={100,100}"
End With
With sc.NewSeries
.ChartType = xlXYScatterLinesNoMarkers
.Name = "B"
.XValues = "={1, 3}"
.Values = "={80, 80}"
End With
With sc.NewSeries
.ChartType = xlXYScatterLinesNoMarkers
.Name = "C"
.XValues = "={1, 3}"
.Values = "={50, 50}"
End With
EDIT: Here is a screenshot using the data in the answer by #axel-richter. This is what it looks like immediately after the macro ends.

Answer 1

I suppose this is with Excel 2010 and later.
Call Chart.ChartWizard Method without parameters after you added new series.
Example:
Suppose we have:
Then after running this macro:
Sub addChart()
Dim oChart As ChartObject
Dim sc As SeriesCollection
Set oChart = ActiveSheet.ChartObjects.Add(300, 40, 300, 200)
oChart.Chart.ChartWizard Source:=ActiveSheet.Range("A1:D4"), Gallery:=xlColumn
Set sc = oChart.Chart.SeriesCollection
With sc.NewSeries
.ChartType = xlXYScatterLinesNoMarkers
.Name = "A"
.XValues = "={1,3}"
.Values = "={100,100}"
End With
With sc.NewSeries
.ChartType = xlXYScatterLinesNoMarkers
.Name = "B"
.XValues = "={1, 3}"
.Values = "={80, 80}"
End With
With sc.NewSeries
.ChartType = xlXYScatterLinesNoMarkers
.Name = "C"
.XValues = "={1, 3}"
.Values = "={50, 50}"
End With
oChart.Chart.ChartWizard
End Sub
we have:

Answer 2

I still have no explanation for why those lines don't show up for me, but I've found a "solution" that coerces them into visibility. I added the following at the end of the macro to (a) add an extra series at the end, and (b) immediately delete it.
With sc.NewSeries
.ChartType = xlXYScatterLinesNoMarkers
.Name = "D"
.XValues = "={1, 3}"
.Values = "={50, 50}"
End With
sc(sc.Count).Select
Application.SendKeys "{Delete}"
Note the last line. Using Selection.Delete deletes the extra series but the lines that were invisible stay that way.

Answer 3

If you've got the time try not reuse your SeriesCollection object.
I ran into this with a C# app I'm writing. The only similarity I could see between our code was that we were both calling NewSeries() on the same SeriesCollection object.
It's also worth noting the Chartwizard, and quick-series-create-delete workaround methods didn't work for me.
What did work was calling seriescollection() on the chart object before each SeriesCollection.NewSeries() call.
As in:
ChartObject co = target.ChartObjects().Item(1);
Chart c = co.Chart;
SeriesCollection s = c.SeriesCollection();
Series s1 = s.NewSeries();
s1.ChartType = XlChartType.xlLine;
s = c.SeriesCollection();
Series s2 = s.NewSeries();
s2.ChartType = XlChartType.xlLine;
Total conjecture, but I suspect a defect in the SeriesCollection class; potentially some event isn't firing on subsequent NewSeries calls. Depending on the version each of us is using the workarounds were causing the event that isn't firing to fire and therefore we would see the invisible series' actually appear.