Delphi6中控制Excell2000的Chart的问题

[myth_2002]

程序是这样的：
1，创建Chart对象
var
ExlApp，Chart：variant；
begin
ExlApp:=CreateOleObject('Excel.Application');
achart:=ExcelApp.ActiveSheet.chartObjects.add(200,200,200,200);
end；
2,打印Chart
achart.chart.charttype:=TOleEnum(xlPie);
series:=achart.chart.seriescollection;
series.add(ExcelApp.ActiveSheet.Range['C'+IntTostr(BEGLINE+1),'C'+IntTostr(BEGLINE+1+DS.RecordCount)],true);//设置数据源在C4：C25。
//achart.chart.HasTitle:=True;//这里出现对象不支持HasTitle属性的错误

程序可以正常结束，但是Excel中只有一个空的Chart框，里面没有东西。
我在网上找了一堆，可是都不一样。请教一下在Delphi中控制Chart的标准做法，麻烦发一个给我（[e-mail]）谢谢了

[myth_2002]

怎么没人啊，只好自己up了

[pp_bird]

搬条板凳过来坐坐……upup

[myth_2002]

在线等待ing。。。。。

[myth_2002]

爱