Trendline in Excel automatisch hinzufügen

[-platon-]

Nochmal danke für deine Hilfe. Ich hab folgenden Code nun in meine Procedure eingebunden... und es klappt wunderbar.

Delphi-Quellcode:

procedure ...(...);
  var
    ...   
    ExcelV : Variant; 
  begin
    ...     
    ExcelV := GetActiveOleObject('Excel.Application');
    ExcelV.Sheets['Diagramm 2'].Select;
    { voor jede Spalte Linie zeichnen }
    for i := 1 to ChartObjekt.LineList.Count-1 do
      begin
        ExcelV.ActiveChart.SeriesCollection(i).Select;
        ExcelV.ActiveChart.SeriesCollection(i).Trendlines.Add
               (Type := xlLinear, Forward := 0, Backward := 0,
                DisplayEquation := True, DisplayRSquared := True).Select;
      end;
    ExcelV := unassigned;
  end;