Hallo
DP'ler,
ich versuche mich gerade für eines meiner aktuellen Projekte im Bereich Automatisierung mit Delphi und Excel zurecht zu finden. Soweit lief das bisher ganz gut, und ich hab es geschafft mithilfe diverser Tutorials und Beispielen aus dem Internet Excel zu öffnen, die Tabelle mit ein paar Werten zu füllen, und daraus ein Diagramm zu erstellen. Nun sind diese Werte in diesem Diagramm Mittelwerte, und ich würde noch gerne deren Standardabweichung in das Diagramm mit Fehlerindikatoren einzeichnen lassen. Die Werte dazu stehen bereits in der Excel Tabelle.
Nach etwas suchen im Internet bin ich dann schliesslich auf die ErrorBar-funktion gestossen. Soweit mein Code:
Delphi-Quellcode:
var
chart: TExcelChart;
chart.ConnectTo(...);
chart.Name := 'ChartName';
chart.ChartType := xlColumnClustered;
chart.SetSourceData(worksheet.Range['A1', 'B' + IntToStr(LastRow - 1)], xlColumns);
(chart.SeriesCollection(1, LOCALE_USER_DEFAULT) as Series).HasErrorBars := true;
(chart.SeriesCollection(1, LOCALE_USER_DEFAULT) as Series).ErrorBar(xlY, xlErrorBarIncludeBoth, xlErrorBarTypeCustom, ?, ?);
Nun stellt sich mir nur die Frage, was ich anstelle der beiden "?" einzusetzen habe. Ich hab es bereits mit "worksheet.Range['C2', 'C' + IntToStr(LastRow - 1)]" probiert, allerdings bekomme ich immer beim aufruf die Fehlermeldung "Unbekannter Fehler.", was mir nicht besonders viel weiterhilft.
Ich hoffe ihr habt irgendwelche Ideen die mir hier weiterhelfen könnten.
Anmerkung:
Ich arbeite unter Windows XP mit Delphi 2006 Enterprise und Office 2007 Beta 2 (mit Office XP gehts allerdings auch nicht), und verwende die ExcelXP-
Unit.
ciao & danke für jede Hilfe,
Philipp