Excel Diagramm einfärben

[ueei.net]

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.