Trendline in Excel automatisch hinzufügen

[Keldorn]

Hallo,

mit den Server-Kompos habe ich es auch nicht hinbekommen. Da stimmt was nicht. Habe es auch nicht hinbekommen, das trendlines-Objekt zu bekommen, das fehlt irgendwie, ich kann nur eine einzelne Trendline aufrufen.

mit der späten Bindung ginge es aber:

Delphi-Quellcode:

procedure TForm1.Button14Click(Sender: TObject);
var Excel: Variant;
begin
  try
    Excel:=GetActiveOleObject('Excel.Application');
  except
    Excel:=CreateOleObject('Excel.Application');
  end;
  Excel.Visible := True;
  //blabla, Excelmappe öffnen, hier als bsp muß die Mappe schon auf sein
  Excel.Sheets['Diagramm 1'].Select;
  Excel.ActiveChart.SeriesCollection(1).Select;
  Excel.ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlLinear,
                                                       Forward:=0,
                                                       Backward:=0,
                                                       DisplayEquation:=False,
                                                       DisplayRSquared:=False).Select;
  Excel := Unassigned;
end;

zwecks des Makros hinzufügen: gugg mal hier:
http://www.dsdt.info/tipps/?id=605 ganz unten.

Mfg Frank