DELPHI技巧:使用Delphi控制Excle二维图计算机二级考试

文章作者 100test 发表时间 2009:05:13 17:43:30
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　在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:=’坐标轴说明’.

　　特别推荐：

　　2009年9月全国计算机等级考试时间及科目预告

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总