Delphi控制Excel2000

发布: 2008-5-19 10:46 | 作者: 不详 | 来源: 软件研发之窗 | 查看: 247次 | 进入软件测试论坛讨论

    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:=’坐标轴说明’;