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