Hallo, folgendes Problem,
ich öffne mir mit folgendem Script eine Excel Datei:
Delphi-Quellcode:
try
Excel := CreateOleObject('Excel.Application');
except
// Fehler aufgetreten
ShowMessage ( 'Excel konnte nicht gestartet werden !' );
Exit;
end;
// Dokument öffnen
Excel.Visible := False;
Excel.Workbooks.Open(FileName := 'hansi.xls');
Und bearbeite darin haufenweise Werte:
Delphi-Quellcode:
Excel.Cells [zeile,2].Value := q_meinesPROZENT.AsString;
Excel.Cells [zeile,3].Value := q_meinesGESAMT.AsString;
.....
.....
.....
In der Datei befundet sich auch ein Diagramm, von dem ich abhängig von meinen Daten eine Spalte einfärben möchte. Die Position der Spalte kenne ich.
Nun hab ich mir ein Macro aufgezeichnet, welches eine Säule einfärbt, in diesem Fall die zweite. Diesen Code möchte ich in Delphi "ausführen", bzw. portieren, da im Excel keine Macros sein dürfen.
Delphi-Quellcode:
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(2).Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
Leider habe ich das noch nicht in Delphi umwandeln können, bin schon am verzweifeln.
Hoffe es kann mir jemand helfen. Danke.