Код для диаграммы - Microsoft Office Excel

Bu$ter · 04.09.2008, 16:57

Народ HELP

Хочу написать макрос для диаграммы. Смысл вот в чем:
Имеем 2 лист, на первом 2 столбца, причем еженедельно снизу добавляется новое значение. На втором диаграмма.

Так вот задача - как должен выглядеть макрос для построения диаграммы, который бы автоматически включал в область данных диаграммы весь столбец данных (типа Selection.End(xlDown)).

Пытаюсь активировать диаграмму с помощью свойства activate

Worksheets("Диаграмма").C hartObjects("Диагр).Activate - не работает

Пример прикрепляю...

VictorM · 04.09.2008, 21:37

Посмотрите вот это Как программно обновить уже построенную диаграмму, там же есть рабочие примеры.
Думаю, это и будет ответом на Ваш вопрос.

Bu$ter · 05.09.2008, 11:30

<Благодарю за ответ.

Возник встречный вопрос

Строка макроса:

Код:


ActiveChart.SetSourceData Source:=Sheets(1).Range(Cells(6, 60), Cells(z + 5, 61)), PlotBy:=xlColumns

Можно ли в данном случае прописывать диапазон для объекта Range через Cells?

А то выдает ошибку1004 - что cells в данном случае употреблять нельзя.
Дело в том диапазон данных постоянно увеличивается, поэтому я ввел переменную z, которая рассчитывается по своему правилу. Мне необходимо чтобы количество строк в диапазоне постоянно изменялось, то есть зависило от переменной z.
Подскажите как это можно реализовать.

Спасибо

VictorM · 05.09.2008, 11:44

да нет, можно и так.
Только тогда нужно написать так

Код:

Sheets(1).Range(Sheets(1).Cells(6, 60), Sheets(1).Cells(z + 5, 61))

Bu$ter · 05.09.2008, 12:29

Спасибо большое

Все заработало!!!!!!!

04.09.2008, 21:37	#2
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Посмотрите вот это Как программно обновить уже построенную диаграмму, там же есть рабочие примеры. Думаю, это и будет ответом на Ваш вопрос. "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499

05.09.2008, 11:30	#3
Bu$ter Пользователь Регистрация: 16.05.2008 Сообщений: 73	<Благодарю за ответ. Возник встречный вопрос Строка макроса: Код: `ActiveChart.SetSourceData Source:=Sheets(1).Range(Cells(6, 60), Cells(z + 5, 61)), PlotBy:=xlColumns` Можно ли в данном случае прописывать диапазон для объекта Range через Cells? А то выдает ошибку1004 - что cells в данном случае употреблять нельзя. Дело в том диапазон данных постоянно увеличивается, поэтому я ввел переменную z, которая рассчитывается по своему правилу. Мне необходимо чтобы количество строк в диапазоне постоянно изменялось, то есть зависило от переменной z. Подскажите как это можно реализовать. Спасибо

05.09.2008, 11:44	#4
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	да нет, можно и так. Только тогда нужно написать так Код: `Sheets(1).Range(Sheets(1).Cells(6, 60), Sheets(1).Cells(z + 5, 61))` "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Составление диаграммы	Иля	Microsoft Office Excel	1	06.04.2008 18:08
Диаграммы	vvovik	Компоненты Delphi	1	15.02.2008 19:12
Построение диаграммы на С	Raptor	Помощь студентам	2	04.12.2007 10:15
Построение диаграммы	Владислав Крюков	Microsoft Office Excel	12	14.11.2007 23:50
Диаграммы, легенда с 2 сторон.	WIC	Microsoft Office Excel	8	02.10.2007 17:17

05.09.2008, 12:29	#5
Bu$ter Пользователь Регистрация: 16.05.2008 Сообщений: 73	Спасибо большое Все заработало!!!!!!!