delphi 中如何绘制图表 找四方财务软件注册机
给二维图赋值
series:=achart.chart.seriescollection;
range:=sheet1!r2c3:r3c9;
series.add(range,true);
为什么在我的工程中第一句编译 series:=achart.chart.seriescollection;不过去，总是出错，那位大哥可以帮助小弟一下。
谢了！
2楼: 你用的什么控件？ 如管家婆财务软件报价
3楼: 把编译出错的提示贴下
4楼: 是呀，你用什么控件，用微软的和vb6里的控件吧
5楼: 你应该先选定或创建工作表
6楼: 给你段资料
使用Delphi 控制Excle二维图
在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet
var asheet1,achart, range:variant;
1）选择当第一个工作薄第一个工作表
asheet1:=ExcelApplication1.Workbooks[1].Worksheets[1];
2）增加一个二维图
achart:=asheet1.chartobjects.add(100,100,200,200);
3）选择二维图的形态
achart.chart.charttype:=4;
4）给二维图赋值
series:=achart.chart.seriescollection;
range:=sheet1!r2c3:r3c9;
series.add(range,true);
5）加上二维图的标题
achart.Chart.HasTitle:=True;
achart.Chart.ChartTitle.Characters.Text:=’ Excle二维图’
6）改变二维图的标题字体大小
achart.Chart.ChartTitle.Font.size:=6;
7）给二维图加下标说明
achart.Chart.Axes(xlCategory, xlPrimary).HasTitle := True;
achart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text := ＇＇下标说明＇＇;
8）给二维图加左标说明
achart.Chart.Axes(xlValue, xlPrimary).HasTitle := True;
achart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text := ＇＇左标说明＇＇;
9）给二维图加右标说明
achart.Chart.Axes(xlValue, xlSecondary).HasTitle := True;
achart.Chart.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text := ＇＇右标说明＇＇;
10）改变二维图的显示区大小
achart.Chart.PlotArea.Left := 5;
achart.Chart.PlotArea.Width := 223;
achart.Chart.PlotArea.Height := 108;
11）给二维图坐标轴加上说明
achart.chart.seriescollection[1].NAME:=＇＇坐标轴说明＇＇;
仓库管理软件版7楼: 建议你用teechart控件， 可以在www.delphibox.com找到
8楼: 我就是用SiWeiLiuLang这位仁兄提供的这段资料编写的：看4）给二维图赋值 。
使用Delphi 控制Excle二维图
在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet
var asheet1,achart, range:variant;
1）选择当第一个工作薄第一个工作表
asheet1:=ExcelApplication1.Workbooks[1].Worksheets[1];
2）增加一个二维图
achart:=asheet1.chartobjects.add(100,100,200,200);
3）选择二维图的形态
achart.chart.charttype:=4;
4）给二维图赋值
series:=achart.chart.seriescollection;
range:=sheet1!r2c3:r3c9;
series.add(range,true);
5）加上二维图的标题
achart.Chart.HasTitle:=True;
achart.Chart.ChartTitle.Characters.Text:=’ Excle二维图’
6）改变二维图的标题字体大小
achart.Chart.ChartTitle.Font.size:=6;
7）给二维图加下标说明
achart.Chart.Axes(xlCategory, xlPrimary).HasTitle := True;
achart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text := ＇＇下标说明＇＇;
8）给二维图加左标说明
achart.Chart.Axes(xlValue, xlPrimary).HasTitle := True;
achart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text := ＇＇左标说明＇＇;
9）给二维图加右标说明
achart.Chart.Axes(xlValue, xlSecondary).HasTitle := True;
achart.Chart.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text := ＇＇右标说明＇＇;
10）改变二维图的显示区大小
achart.Chart.PlotArea.Left := 5;
achart.Chart.PlotArea.Width := 223;
achart.Chart.PlotArea.Height := 108;
11）给二维图坐标轴加上说明
achart.chart.seriescollection[1].NAME:=＇＇坐标轴说明＇＇;
首先感谢各位的支持。
9楼: 那把你的详细代码贴下好吧
10楼: 编译提示：
[warning}:Symbol＂series＂is specific to a platform
[Error}:left side cannot be assigned to
[Error]:Incompatible types:＇＇TGUID＇＇ and ＇＇variant＇＇
11楼: procedure TForm1.Button1Click(Sender: TObject);
var asheet1,achart,range:variant;
begin
asheet1:=ExcelApplication1.Workbooks[1].Worksheets[1];
achart:=asheet1.chartobjects.add(100,100,200,200);
achart.chart.charttype:=4;
series:=achart.chart.seriescollection;
range:=＇＇sheet1!r2c3:r3c9＇＇;
series.add(range,true);
end;
12楼: achart.chart中 achart是什么？它有chart属性吗？ 如四方财务软件注册机
13楼: series应该是achart的一个属性
仓库管理软件版14楼: SiWeiLiuLang，你现在可以打开Delphi试一下，虽然编译通过了，但是不能够运行
15楼: 帮顶!
http://www.source520.com
站长开发推广同盟 站长朋友的终极驿站
同时拥有海量源码电子经典书籍下载
http://www.source520.com/search/search.asp
＂编程.站长＂论坛搜索引擎-----为中国站长注入动力!
16楼: 没有人会解答吗？
联系我们
