Как задать цвет графику в excel из delphi?

1
2
3
4
5

var
  ExcelApp: Variant;
begin
  ExcelApp := GetActiveOleObject('Excel.Application');
  ExcelApp.Visible := True;

1
2
3
4

var
  Workbook: Variant;
begin
  Workbook := ExcelApp.Workbooks.Open('C:Book1.xlsx');

1
2
3
4

var
  Worksheet: Variant;
begin
  Worksheet := Workbook.Worksheets['Sheet1'];

1
2
3
4
5
6

var
  ChartObject: Variant;
  Chart: Variant;
begin
  ChartObject := Worksheet.ChartObjects[1];
  Chart := ChartObject.Chart;

1

Chart.ChartArea.Format.Fill.ForeColor.RGB := RGB(255, 0, 0);

1
2

Workbook.Save;
Workbook.Close;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17

var
  ExcelApp: Variant;
  Workbook: Variant;
  Worksheet: Variant;
  ChartObject: Variant;
  Chart: Variant;
begin
  ExcelApp := GetActiveOleObject('Excel.Application');
  ExcelApp.Visible := True;
  Workbook := ExcelApp.Workbooks.Open('C:Book1.xlsx');
  Worksheet := Workbook.Worksheets['Sheet1'];
  ChartObject := Worksheet.ChartObjects[1];
  Chart := ChartObject.Chart;
  Chart.ChartArea.Format.Fill.ForeColor.RGB := RGB(255, 0, 0);
  Workbook.Save;
  Workbook.Close;
end;