怎样用delphi调用Excel里的组件生成饼图或柱状图,因为我觉得Excel里的饼图比delphi里要强一些

解决方案 »

  1.   

    我想用OLE加上Execel的宏应该可以做!不过我没作过!你的想法也挺好的!
    up
      

  2.   

    使用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(