急，在线等候：如何利用delphi自带excelchart控件做出曲线。也即做出图表

Question

参考delphi深度探索，里面有介绍类似的一个office自带控件，可实现你要求

Answer 1

你要作曲线和图表还不如用DBChart，例子在Demos\TeeChart下。

Answer 2

这个控件没用过，我是直接通过OLE控制Excel的。

Answer 3

ole也可以，把代码贴上来，验证成功，就有分，但还是希望用过excelchart控件的高手给予援助。

Answer 4

不好意思,忙到现在才上网。你最好看看Excle的关于VB的Help;uses ComObj;procedure TForm1.Button1Click(Sender: TObject);
var
  Excel: Variant;
  WorkBook: Variant;
  WorkSheet: Variant;
begin
  Excel :=CreateOleObject('Excel.Application');
  WorkBook := Excel.Workbooks.Open(FileName :=
      'E:\Program\DELPHI\MyDemo\ExcelChart\Book1.xls');
  WorkSheet := Excel.Sheets.Item['Sheet1'];
  WorkBook.Charts.Add;
  WorkBook.ActiveChart.ChartType := $41;
  WorkBook.ActiveChart.SetSourceData(WorkSheet.Range['A1:E2'], PlotBy:= 1);
  Excel.Visible := true;
end;