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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.04.2009, 14:28   #1
nikolai_P
Форумчанин Подтвердите свой е-майл
 
Регистрация: 28.04.2008
Сообщений: 116
По умолчанию Run-time error '1004'. Недопустимый параметр!

Всем добрый день!

Строю диаграммы! Есть несколько листов: каждый лист - отдельный период с отражением объемов производства по заводам. На основании них строится динамика объемов производства. Для построения необходимо выделить несколько листов и запустить макрос.

Код построения диаграммы, в котором возникает ошибка:
Код:
Set r1 = NewSheet.Range(Cells(4, C_Tab), Cells(3 + CountSheets, C_Tab))
Set r2 = NewSheet.Range(Cells(4, 1), Cells(3 + CountSheets, 1))


Set NewChart = ThisWorkbook.Charts.Add
Name11 = "1.1. Динамика " & Sheet(CountSheets).name & "-" & Sheet(1).name
NewChart.name = Name11
NewChart.Move before:=fSheet
With NewChart
    '.ApplyChartTemplate ("C:\Documents and Settings\Николай_2\Application Data\Microsoft\Templates\Charts\Столбиковая.crtx")
    .PageSetup.PaperSize = xlPaperLegal
    .ChartType = xlColumnClustered
    .Legend.Delete
    .SetSourceData Source:=NewSheet.Range("A4")
    .SeriesCollection(1).Values = r1
    .SeriesCollection(1).XValues = r2
End With
ТЕПЕРЬ САМА ПРРОБЛЕМА!!!

Когда я выделяю три листа - то макрос выполняется замечательно, но когда я выделяю 5 или 6 листов, то тогда и возникает эта непонятная для меня ошибка!

Жду мнения ЭКСПЕРТОВ!
Вот полностью макрос: macro.rar
nikolai_P вне форума Ответить с цитированием
Старый 20.04.2009, 18:05   #2
nikolai_P
Форумчанин Подтвердите свой е-майл
 
Регистрация: 28.04.2008
Сообщений: 116
По умолчанию

Уважаемый, nikolai_P!

Попробуйте вместо строки:
Код:
   .SetSourceData Source:=NewSheet.Range("A4")
использовать:
Код:
   .SetSourceData Source:=r1
nikolai_P вне форума Ответить с цитированием
Старый 20.04.2009, 18:06   #3
nikolai_P
Форумчанин Подтвердите свой е-майл
 
Регистрация: 28.04.2008
Сообщений: 116
По умолчанию

Спасибо все заработало!
nikolai_P вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка Run-Time error 13 DEZuv Microsoft Office Access 0 03.04.2009 12:25
Недопустимый формат файла - перестал открываться файл!? runny Microsoft Office Excel 5 09.01.2009 12:42
При создание edit, в режиме run-time, нет стандартного контекстного меню slips Общие вопросы Delphi 6 08.11.2008 17:05
Ошибка 1004 Alesashka Microsoft Office Excel 3 09.10.2008 11:13
Подскажите! Run-time error '7' Out of memory evgenjp Свободное общение 3 01.10.2008 09:16