Einzelnen Beitrag anzeigen

Hermann85

Registriert seit: 24. Jan 2008
Ort: Dresden
42 Beiträge
 
#7

Re: Diagramm in Excel erzeugen

  Alt 31. Mär 2008, 10:13
Hallo,

Ich hatte mein Diagramm dann doch noch hinbekommen...nach ewiger Sucherei hab ich herausgefunden, dass man bei der Quellangabe Z statt R und S statt C schreiben muss (da muss erst ma einer drauf kommen) naja...bei mir siehts jetz so aus :

Delphi-Quellcode:
  
Excel.Charts.Add;
Excel.ActiveChart.ChartType := xlXYScatterLinesNoMarkers;
Excel.ActiveChart.SeriesCollection(1).XValues := '=''Sued_Ost''!Z2S4:Z'+IntToStr(ZelleSued_Ost)+'S4';
Excel.ActiveChart.SeriesCollection(1).Values := '=''Sued_Ost''!Z2S6:Z'+IntToStr(ZelleSued_Ost)+'S6';
Excel.ActiveChart.SeriesCollection.NewSeries;
Excel.ActiveChart.SeriesCollection(2).XValues := '=''Nord_West''!Z2S4:Z'+IntToStr(ZelleNord_West)+'S4';
Excel.ActiveChart.SeriesCollection(2).Values := '=''Nord_West''!Z2S6:Z'+IntToStr(ZelleNord_West)+'S6';
Excel.ActiveChart.HasTitle := True;
Excel.ActiveChart.ChartTitle.Characters.Text := 'Reisezeiten';
Excel.ActiveChart.Axes(xlCategory, xlPrimary).HasTitle := True;
Excel.ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text := 'Uhrzeit';
Excel.ActiveChart.Axes(xlValue, xlPrimary).HasTitle := True;
Excel.ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text := 'Dauer in sec';
Excel.Sheets[1].Name := 'Diagramm Reisezeiten';
trotzdem danke für die hilfe

grüße Hermann
  Mit Zitat antworten Zitat