Главная страница
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.04 c
14-1103525707
syte_ser78
2004-12-20 09:55
2005.01.09
завершение работы приложения


9-1095358070
miek
2004-09-16 22:07
2005.01.09
Fiji diver V1.00 /GLScene/


9-1095259567
wiz
2004-09-15 18:46
2005.01.09
Rust v0.2.5-alpha


4-1101013672
InfMag
2004-11-21 08:07
2005.01.09
SysTray просто и понятно


6-1098296927
papage
2004-10-20 22:28
2005.01.09
TIDHTTPSERVER, как слить файл