Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.09;
Скачать: CL | DM;

Вниз

excel   Найти похожие ветки 

 
Sash ©   (2004-12-21 06:16) [0]

Здравствуйте!
есть диапазон ячеек c27-i29 и надо построить диаграмму по строкам

Делаю так:  

WB.Sheets[n+1].Range["C27:I29"].Select;
WB.Sheets[n+1].Charts.Add;
//WB.Sheets[n+1].ActiveChart.ChartType:=xlColumnClustered;
WB.Sheets[n+1].ActiveChart.SeriesCollection(1).Name:="jkh";
WB.Sheets[n+1].ActiveChart.SeriesCollection(2).Name:="kjh";
WB.Sheets[n+1].ActiveChart.SeriesCollection(3).Name:="iou";

как дело доходит до второй строчки пишет,
method charts not supported by automation object,
а если раскомментировать 3-ю строчку, то вообще не компилится, пишет
undeclared identifier "xlColumnClustered"

ПЛИЗ! подскажите что делать с этим?
С Уважением
Заранее спасибо! :)


 
SergP ©   (2004-12-21 09:33) [1]


> а если раскомментировать 3-ю строчку, то вообще не компилится,
> пишет
> undeclared identifier "xlColumnClustered"


Что касается xlColumnClustered, то лучше найди его значение и пиши его в проге вместо xlColumnClustered. Либо сделай константу xlColumnClustered.

Кстати только что у себя в Excel2000 глянул. там xlColumnClustered = 51


 
YurikGL ©   (2004-12-21 10:59) [2]

//WB.Sheets[n+1].Charts.Add;

Попробуй ChartObjects


> //WB.Sheets[n+1].ActiveChart.ChartType:=xlColumnClustered;

vr:OleVariant;

vr:=xlColumnClustered;
WB.Sheets[n+1].ActiveChart.ChartType:=vr;


 
YurikGL ©   (2004-12-21 11:01) [3]

Сорри


> WB.Sheets[n+1].Charts.Add;

WB.Charts.Add;

вроде так должно работать


 
Sash ©   (2004-12-21 13:21) [4]

это сработало!!!
WB.Charts.Add;
Спасибо!!! YurikGL ©   (21.12.04 11:01) [3]
только строит диаграмму на другом листе, а мне надо на текущем

2 SergP ©   (21.12.04 09:33) [1]
и Вам спасибо, помогло!

а как узнать значение параметра, к примеру того же xlColumnClustered ???



Страницы: 1 вся ветка

Текущий архив: 2005.01.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.043 c
14-1103510809
Думкин
2004-12-20 05:46
2005.01.09
С днем рождения! 20 декабря


4-1100691991
H.A.Z.A.R.D.
2004-11-17 14:46
2005.01.09
How Create a System Service [Install Service] (создать службу)


6-1098265522
Кирилл.
2004-10-20 13:45
2005.01.09
как через прокси пингануть ност?


1-1103805041
Grizly
2004-12-23 15:30
2005.01.09
Pointer на Record... Как вытащить данные?


14-1103728005
Кудесник
2004-12-22 18:06
2005.01.09
К владельцам SE T610, T650...