Как активировать и управлять листом диаграммы

Question

Я использую таблицу Chart в Excel для отображения некоторых данных. Кажется, что команды для манипулирования диаграммами и их исходными диапазонами отличаются для листов диаграмм и встроенных диаграмм. Я не уверен, как создать новую серию для листа диаграммы на основе переменного количества данных и, следовательно, переменного количества серий.

У меня есть лист данных, который начинается в столбце B и может продолжаться для многих столбцов. Я пытаюсь добавить новую серию в этот лист диаграммы для каждых двух столбцов. столбцы B и C соотносятся со значениями X и Y соответственно, и каждые два столбца имеют новый набор данных.

lastcol = Worksheets("Force").Cells(1, Columns.Count).End(xlToLeft).Column

For i = 3 To lastcol Step 2
    lrownum = ThisWorkbook.Worksheets("Force").Cells(Rows.Count, i).End(xlUp).Row


    With Sheets("ForceGraph").ChartObjects("Chart78").Chart
       With .SeriesCollection.NewSeries
            .XValues = Worksheets("Force").Range(Cells(1, i - 1), Cells(lrownum, i - 1))
            .Values = Worksheets("Force").Range(Cells(1, i), Cells(lrownum, i))
            .Name = Worksheets("Force").Range(Cells(1, i)).Value
        End With
    End With


Next i

Я получаю ошибки с указанным кодом. Я также пытался

 Chart78.Activate
 ActiveChart.ChartType = xlXYScatterSmooth
 ActiveChart.SetSourceData Source:=Sheets("Force").Range("B1:M1500")

, который заполняет диаграмму, но, по-видимому, не допускает наборы переменных данных и постоянно неправильно путает значения X и Y.

Есть ли какая-то комбинация, которую я могу использовать, чтобы получить ее для правильного заполнения таблицы диаграммы?

спасибо,