有谁做过通过程序在excel中画曲线图的? 非常急,或者能够提供有关excel的编程资料非常感谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你查一下关于Execl的COM编程接口 你是说图表吗你参考一下,大概就是先确定数据区域,然后选择一种图表类型//打印图表 if PrintChart then begin ExcelApp.ActiveSheet.Range['A1:M19'].MergeCells:=true; //数据区域 range1:=ExcelApp.ActiveSheet.Range['H'+IntTostr(BEGLINE+3),'H'+IntTostr(BEGLINE+2+DS.RecordCount)]; //图表类型 chtype:=ToleEnum(xl3DPie); achart:=ExcelApp.ActiveSheet.chartobjects.add(0,0,670,270);//add(left,top,width,length)单位:磅 achart.chart.charttype:=chtype; series:=achart.chart.seriescollection; series.add(range1,xlColumns); achart.chart.Hastitle:=true; achart.chart.charttitle.characters.text:=ChartTitle; range1:=ExcelApp.ActiveSheet.Range['G'+IntTostr(BEGLINE+3),'G'+IntTostr(BEGLINE+2+DS.RecordCount)]; achart.chart.seriescollection[1].xValues:=range1; if DS.RecordCount>6 then achart.chart.ApplyDataLabels(xlDataLabelsShowPercent,False,true) else achart.chart.ApplyDataLabels(xlDataLabelsShowLabelAndPercent,False,true); end; 如何用语句修改ACCESS2000字段允许空字符串? 基于EXCEL2003的程序在EXCEL2007下的问题。 求二台服务器同步数据解决方案 MilliSecondOfTheMonth的用法问题 InstallShield问题 RadioGroup的小问题 利用WebService怎样向数据库里面插入一条记录呢? 如何将声音文件存入数据库的blob字端 delphi怎么屏蔽WebBrowser浏览器的GIF格式图片 关于dll的参数是对象的问题 高手们一定感兴趣 如何获得注册表指定项中的所有键值和信息
你参考一下,大概就是先确定数据区域,然后选择一种图表类型
//打印图表
if PrintChart then
begin
ExcelApp.ActiveSheet.Range['A1:M19'].MergeCells:=true;
//数据区域
range1:=ExcelApp.ActiveSheet.Range['H'+IntTostr(BEGLINE+3),'H'+IntTostr(BEGLINE+2+DS.RecordCount)];
//图表类型
chtype:=ToleEnum(xl3DPie);
achart:=ExcelApp.ActiveSheet.chartobjects.add(0,0,670,270);//add(left,top,width,length)单位:磅
achart.chart.charttype:=chtype;
series:=achart.chart.seriescollection;
series.add(range1,xlColumns);
achart.chart.Hastitle:=true;
achart.chart.charttitle.characters.text:=ChartTitle;
range1:=ExcelApp.ActiveSheet.Range['G'+IntTostr(BEGLINE+3),'G'+IntTostr(BEGLINE+2+DS.RecordCount)];
achart.chart.seriescollection[1].xValues:=range1;
if DS.RecordCount>6 then
achart.chart.ApplyDataLabels(xlDataLabelsShowPercent,False,true)
else
achart.chart.ApplyDataLabels(xlDataLabelsShowLabelAndPercent,False,true);
end;