Excel VBA: построение нескольких рядов с использованием данных массива

Question

Я пытаюсь нанести три ряда на таблицу диаграммы из массивов.

ct - таблица диаграмм, которая уже создана. Одномерные массивы A, B, C, x имеют одинаковую длину, а также одинаковые LBound и UBound.

Dim sr As Series
For Each sr In ct.SeriesCollection
    sr.Delete
Next

With ct.SeriesCollection.NewSeries
    .Name = "A"
    .Values = a
    .XValues = x
End With

With ct.SeriesCollection.NewSeries
    .Name = "B"
    .Values = b
    .XValues = x
End With

With ct.SeriesCollection.NewSeries
    .Name = "C"
    .Values = c
    .XValues = x
End With

Однако после запуска макроса на графике нет столбцов или линий. Я вижу только метки «A», «B», «C» на правой стороне графика.

Я новичок в VBA. Любая помощь будет оценена.

Answer 1

NewSeries очищает существующие данные в SeriesCollection каждый раз.Это работает после того, как я соединю эти три NewSeries перед заполнением данных.

With ct.SeriesCollection
    .NewSeries
    .NewSeries
    .NewSeries

    .Item(1).Name = "A"
    .Item(1).Values = a
    .Item(1).XValues = x

    .Item(2).Name = "B"
    .Item(2).Values = b
    .Item(2).XValues = x

    .Item(3).Name = "C"
    .Item(3).Values = c
    .Item(3).XValues = x
End With