значения рядов в диаграммах

[peq]

добрый день!

есть код:
Worksheets("main").ChartObjects("GR 1").Activate
ActiveChart.SeriesCollection(1).Poi nts(1).Select
ActiveChart.SeriesCollection(1).XVa lues = "inp1x!$C$2:$C$40"
ActiveChart.SeriesCollection(1).Val ues = "inp1x!$D$2:$D$40"

такой вопрос:
можно ли поменять значения рядов у диаграммы(график) без селекта(2я строка) - просто подставить значения?

[doober]

Можно

Set mChart = Worksheets("main").Shapes("GR 1").Chart
mChart.SeriesCollection(1).XValues = "inp1x!$C$2:$C$40"
mChart.SeriesCollection(1).Values = "inp1x!$D$2:$D$40"

[peq]

doober, спасибо, то что надо

возникла правда одна небольшая проблема.
если написать код в чистом виде - вылетает ошибка Excel:
"Формула на листе содержит одну или несколько недопустимых ссылок.
Проверьте правильность указания пути, книги, названия диапахзона и ссылки на ячейки."

У меня была мысль, что подобное может быть вызвано неодновременной сменой рядов X,Y.
Я поместил перед и после кода Application.ScreenUpdating, но работа файла стала сильно подтормаживать.

Application.ScreenUpdating = False
Set mChart = Worksheets("main").Shapes("GR1").Ch art
mChart.SeriesCollection(1).XValues = "inp1x!$C$2:$C$40"
mChart.SeriesCollection(1).Values = "inp1x!$D$2:$D$40"
Application.ScreenUpdating = True

Вопрос в причинах возникшей ошибки и в методах борьбы можно ли ошибку обойти более быстрым/правильным способом, чем сделал это я?

[doober]

Это надо файл смотреть.
У меня ошибок не возникает