دخول

**لؤي** · 25-05-2011, 03:54 PM

استطعت أن أجمع ما بين كودين واحد خاص بالإصدار والثاني بالرسم لأتحصل على ملف يحوي إصدار مع رسم

لكن المشكلة بقيت في نوع الرسم البياني هل هو خط أم مدرج تكراري أم ...كيف لي أن أختار نوعية البيان

أرفق الكود

كود :
Var
  MonClasseur : _workbook;
  MaFeuille :_Worksheet;
  MonGraph : _Chart;
  MaSerie : Series;
  MaCollSerie : SeriesCollection;
  compteur:integer;
begin
 scExcelExport1.LoadDefaultProperties;
  scExcelExport1.FontData.Color := clBlack;
  scExcelExport1.ExcelVisible:=False;
  scExcelExport1.Dataset:=Table1;
  scExcelExport1.WorksheetName:='APPELS_';
  scExcelExport1.HeaderText.Text := 'STATISTICS';
  scExcelExport1.BeginRowHeader := 1;
  scExcelExport1.BeginRowTitles := 2;
  scExcelExport1.BeginRowData := 3;
  scExcelExport1.FontHeader.Size := 12;
  scExcelExport1.FontHeader.Style := [fsBold];
  scExcelExport1.AutoFilter := True;
  scExcelExport1.ExportDataset;
  // Save worksheet
  scExcelExport1.SaveAs(ExtractFilePath(Application.ExeName)+'ExcelExport.xls',ffXLS);
  scExcelExport1.Disconnect;
  scExcelExport1.CloseAllExcelApps;
     scExcelExport1.ExcelApplication.Connect;
  MonClasseur:=scExcelExport1.ExcelApplication.Workbooks.Open('C:\Program Files\Borland\Delphi6\Projects\AnaLyZer\ExcelExport.xls',False,False,
        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
  scExcelExport1.ExcelApplication.Visible[0]:=true;
  MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
  MonGraph:=MonClasseur.Sheets.Add(emptyparam,emptyparam,1,xlChart,0) as _chart;
  MaCollSerie:=MonGraph.SeriesCollection(EmptyParam,0) as SeriesCollection;
  MaSerie:=MaCollSerie.NewSeries;
  MaSerie.FormulaLocal:='=SERIE(;Feuil2!$A$2:$A$21;Feuil2!$B$2:$B$21;1

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة