Я пытаюсь создать график xy, где значения x - это ось времени (столбец A), а значения y - в других столбцах. (в примере только C и D) Когда я пробую свой код снизу, я получаю график с временной осью (поэтому столбец A) и у значения всех других столбцов (B, C, D, E, ...), которые нежелателен
Я вижу, что .seriescollection(1) и (2) перезаписывают значения y по умолчанию (потому что мой диапазон меньше), но все остальные (столбец B, D, E, ...) все еще остаются в графике.
Есть мысли почему? Заранее спасибо!
Sub grafieken()
'
' grafieken Macro
'
Dim sh As Worksheet
Dim chrt As Chart
Dim naaaam As String
naaam = ActiveWorkbook.ActiveSheet.Name
Set sh = ActiveWorkbook.Worksheets(naaam)
Set chrt = sh.Shapes.AddChart.Chart
With chrt
'Data?
.ChartType = xlXYScatter
.SeriesCollection.NewSeries
.SeriesCollection(1).Name = sh.Range("$C$1")
.SeriesCollection(1).XValues = sh.Range("$A$2:$A$11")
.SeriesCollection(1).Values = sh.Range("$C$2:$C$11")
.SeriesCollection(2).Name = sh.Range("$D$1")
.SeriesCollection(2).XValues = sh.Range("$A$2:$A$11")
.SeriesCollection(2).Values = sh.Range("$D$2:$D$11")
'Titles?
.HasTitle = True
.ChartTitle.Characters.Text = naaam
End With
End Sub