请教一个在excel文件中画二维折线图的方法?-在线 ( 积分: 100 )

  • 主题发起人 主题发起人 jzg007
  • 开始时间 开始时间
J

jzg007

Unregistered / Unconfirmed
GUEST, unregistred user!
各位前辈,我在使用程序对excel文件中的数据画图时,产生困惑,请帮忙。
我的程序如下:
ExcelApp,achart,range,series : Variant ;
...
try
ExcelApp:=CreateOleObject( 'Excel.Application' );
except
on Exception do raise exception.Create('无法创建Xls文件,请确认是否安装EXCEL!')
end;
...
achart:=ExcelApp.worksheets.chartobjects.add(100,100,450,300);
achart.chart.charttype:=4 ;
series:=achart.chart.seriescollection ;
range:=ExcelApp.worksheets!r2c3:r3c9;
series.add(range,true);
我按照网上提供的方法,做到给二维图赋值时提示错误:“lllegal character in input file '!'($21)。
现在程序只能在excel文件中画了一块空白的区域,就是不知如何将给二维图赋值。还请哪位前辈帮忙,谢谢了。
 
range:=ExcelApp.worksheets!r2c3:r3c9;
这句不对“!r2c3:r3c9”不能这么用。
具体怎么做我忘了,好象是range:=ExcelApp.worksheets.range['r2:c3','r3:c9'];
 
为什么我在网上看到的:使用Delphi 控制Excle二维图的方法,一步一步调试,到了给二维图赋值时,程序提示错误,郁闷?
 
to zbdzjx:
zbdzjx你好,请问如何以列数据进行绘制图形,图表框中能否加标题。
 
各位高手:如果我的数据源分别在B3:B160,J3:J160这两列中,程序代码为:
Range1 := ExcelApp.worksheets.Range['B3:B165', 'J3:J165'] ;
最后的结果是在$B$3:$J$3,$B$165:$J$165区域中的所有列进行了绘制,我只想要第2、第10列中的数据参与图表绘制,请问各位高手代码如何写?谢谢。
 
关注一下, 帮你顶顶!
Range1 := ExcelApp.worksheets.Range['B3:B165', 'J3:J165'] ; 这句应该没有错误!
 
TO delphi_lp :谢谢了
 
我使用此代码:
range1:=ExcelApp.worksheets.range['$I$3:$I$166','$K$3:$K$166'] ;
在EXCEL文件中可以绘制图形,但“系列”产生于“行”,而我想要的“系列”应该产生于“列”,请问代码如何编写?
 
to zbdzjx:
图形绘制成功,但如何按“列”做图。
 
为什么下面这段代码:
range1:=ExcelApp.worksheets.range['$I$3:$I$166','$K$3:$K$166'] ;
series1.add(range1,true) ;
的:系列产生在“行”;而我想要的是:系列产生在“列”?
请问有谁会吗?
 
to zbdzjx:还是非常感谢你给我的提示,现在已画图成功。
 
后退
顶部