Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.01.2013, 14:57   #1
Ogeris
Пользователь
 
Регистрация: 26.10.2010
Сообщений: 87
По умолчанию Ошибка "1004 нельзя установить свойство xvalues класса series"

Добрый день!

Помогите, пожалуйста! Наверняка кто-нибудь сталкивался с такой проблемой: есть график (номер 38), в котором через макрос из листа "свод" меняются диапазоны данных, на основании которых он (график) строится:

Код:
  ActiveSheet.ChartObjects("38").Activate
            ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection(1).XValues = "=свод!R1037C1:R1400C1"
    ActiveChart.SeriesCollection(1).Values = "=свод!R1037C21:R1400C21"
    ActiveChart.SeriesCollection(2).XValues = "=свод!R1037C1:R1400C1"
    ActiveChart.SeriesCollection(2).Values = "=свод!R1037C42:R1400C42"
    ActiveChart.SeriesCollection(3).XValues = "=свод!R1037C1:R1400C1"
    ActiveChart.SeriesCollection(3).Values = "=свод!R1037C63:R1400C63"
Ниже под текущим графиком добавляю копированием ещё один (номер 39), в макросе задаю ему диапазоны, получается:

Код:
   ActiveSheet.ChartObjects("38").Activate
            ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection(1).XValues = "=свод!R1037C1:R1400C1"
    ActiveChart.SeriesCollection(1).Values = "=свод!R1037C21:R1400C21"
    ActiveChart.SeriesCollection(2).XValues = "=свод!R1037C1:R1400C1"
    ActiveChart.SeriesCollection(2).Values = "=свод!R1037C42:R1400C42"
    ActiveChart.SeriesCollection(3).XValues = "=свод!R1037C1:R1400C1"
    ActiveChart.SeriesCollection(3).Values = "=свод!R1037C63:R1400C63"
    
        ActiveSheet.ChartObjects("39").Activate
            ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection(1).XValues = "=свод!R1037C1:R1400C1"
    ActiveChart.SeriesCollection(1).Values = "=свод!R1037C21:R1400C21"
    ActiveChart.SeriesCollection(2).XValues = "=свод!R1037C1:R1400C1"
    ActiveChart.SeriesCollection(2).Values = "=свод!R1037C42:R1400C42"
    ActiveChart.SeriesCollection(3).XValues = "=свод!R1037C1:R1400C1"
    ActiveChart.SeriesCollection(3).Values = "=свод!R1037C63:R1400C63"
и при выполнении vba запинается на новом коде, выдавая следующую ошибку:
"run-time error 1004 нельзя установить свойство xvalues класса series"

P.S. Пытался подкрепить образец, но там слишком много коммерческих данных. А когда я их удаляю, проблема исчезает (((
Ogeris вне форума Ответить с цитированием
Старый 17.01.2013, 07:00   #2
Ogeris
Пользователь
 
Регистрация: 26.10.2010
Сообщений: 87
По умолчанию

Похоже, что с этим больше никто не сталкивался?
Ogeris вне форума Ответить с цитированием
Старый 17.01.2013, 09:53   #3
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

Похоже, что без реального примера с ошибкой никто ответ и не даст(хотя вдруг?), т.к. по Вашим же словам ошибка именно в данных, а не в самом коде. Трудно смоделировать ситуацию, при которой это происходит. Сами подумайте кому хочется сидеть над диаграммами и лихорадочно подставлять всевозможные данные, которые бы вызвали подобную ошибку?

Может диапазон для ряда выходит за диапазон для диаграммы в целом.
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru

Последний раз редактировалось The_Prist; 17.01.2013 в 09:55.
The_Prist вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создать класс "Фигура", от него наследованием создать 3 класса ("треугольник", "четырехугольник", "окружность") funnyy Помощь студентам 3 17.10.2012 17:40
Ошибка "Expecting a valid name" для оператора "<" в JScript Ратибор Редоран JavaScript, Ajax 0 15.12.2011 14:38
Ошибка:является "поле" но используется как "метод" hitman47IT Помощь студентам 0 22.11.2011 20:55
ошибка при обработке функции класса "missing type specifier - int assumed" askerpro Общие вопросы C/C++ 8 02.06.2010 23:09
Ошибка при использовании OlePropertyGet("Documents").OleProcedure("Add") в C++ Builder AleksP C++ Builder 7 11.04.2009 13:06