Нарисуйте диаграмму с несколькими рядами данных

Question

Я хочу построить график из нескольких рядов данных таблицы. Чтобы получить один ряд данных, т. Е. Построить график B относительно A, я использую следующий код:

Sub plt()
    Set rng1 = ActiveSheet.Range("A:A,B:B")
    With ActiveSheet
      .Shapes.AddChart
      Set objChrt = .ChartObjects(.ChartObjects.Count)
      Set chrt = objChrt.Chart
      With chrt
        .ChartType = xlXYScatterSmoothNoMarkers
        .SetSourceData Source:=rng1
     End With
   End With   
End Sub

Теперь я хочу построить столбец C напротив столбца D на том же графике. Я пытаюсь изменить РНГ

Set rng1 = ActiveSheet.Range("A:A,B:B, C:C,D:D")

но это не работает. кто-нибудь может мне помочь, пожалуйста?

спасибо

Answer 1

Пожалуйста, попробуйте заменить последние три строки на:

          .PlotArea.Select
          End With
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(2).XValues = ActiveSheet.Range("C:C")
    ActiveChart.FullSeriesCollection(2).Values = ActiveSheet.Range("D:D")
    End With
End Sub