Einzelnen Beitrag anzeigen

Hermann85

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

Diagramm in Excel erzeugen

  Alt 20. Mär 2008, 13:02
Hallo,

Ich habe schon alle nötigen Tabellen in Excel erzeugt, und müsste nun daraus einige Diagramme basteln. Ich habe auch schon ein Makro aufgezeichnet und versucht das danach zu programmieren, allersings funktioniert das nicht. ich hab bestimmt noch einige Fehler drinnen, doch ich finde sie nicht. Bin auch noch nicht so erfahren. hier erst mal mein code:

Delphi-Quellcode:
 
Excel.Charts.Add;
Excel.ActiveChart.ChartType := Excel.xlXYScatterLinesNoMarkers;
Excel.ActiveChart.SetSourceData := Excel.Sheets('fcd_teil.gpx1').Range('A1:H84');
Excel.Caharts.PlotBy:= Excel.xlColumns;
Excel.ActiveChart.SeriesCollection.NewSeries;
Excel.ActiveChart.SeriesCollection.NewSeries;
Excel.ActiveChart.SeriesCollection(1).XValues := '=fcd_teil.gpx1!R2C4:R83C4';
Excel.ActiveChart.SeriesCollection(1).Values := '=fcd_teil.gpx1!R2C6:R83C6';
Excel.ActiveChart.SeriesCollection(1).Name := '=""Sued""';
Excel.ActiveChart.SeriesCollection(2).XValues := '=fcd_teil.gpx1!R2C13:R83C13';
Excel.ActiveChart.SeriesCollection(2).Values := '=fcd_teil.gpx1!R2C15:R83C15';
Excel.ActiveChart.SeriesCollection(2).Name := '=""Nord""';
Excel.ActiveChart.Location :=Excel.xlLocationAsNewSheet;
Er scheint schon Probleme mit dem Typ zu haben, ich hab aber keine Ahnung, wie ich es sonst noch schreiben könnte.

Ich hoffe mir kann einer helfen.
Danke schon mal im Vorraus

lg Hermann
  Mit Zitat antworten Zitat