Как передать данные из массива в значения диаграммы?

[Zhanibek]

Imeetsya gotovye massivy iz odinakovogo kolichestva elementov.
Nado ispol'zovat' eti dannye kak istochnik dannyh dlya diagrammy.
Proboval etim sposopom:

Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SeriesCollection(1).XValues = DT_Range.Value
ActiveChart.SeriesCollection(1).Values = Pr_Range.Value
ActiveChart.SeriesCollection(1).Name = "=""Pws vs. log((T+dT)/dT)"""
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:= _
"Pws_Dt correlation"

Ne rabotaet - govorit "Invalid qualifier" i vydelyaet "DT_Range.Value"

Veroyatno svyazano s sintaksisom, no razobrat'sya tak i ne smog.

Zaranee spasibo!

[K.Sergey]

Hotel bilo posovetovat' virtualnuyu klaviaturu na russkom, no potom zametil, chto nazvanie temi napisano kirillicey. Vot reshenie tvoey zadachi:

Код: Выделить всё

    Дим МуСхарт Ас Схарт
    Дим МуСхеет Ас Ворксхеет
    Сет МуСхеет = АстивеСхеет
    Сет МуСхарт = Схартс.Адд
    МуСхарт.СхартТупе = хлХУСсаттер
    МуСхарт.СетСоурсеДата Соурсе:= МуСхеет.Ранге(МуСхеет.Селлс(1, 1), МуСхеет.Селлс(7, 2)), ПлотБу:=хлКолумнс
    МуСхарт.Локатион Вхере:=хлЛокатионАсОбжект, Наме:= МуСхеет.Наме