Как Закрасить Слово Из Передаваемой Строки В Excel?

[novachok]

Добрый день! Помогите кто знает как при передачи строки в ячейку закрасить, например, ФИО.
Вот я передаю строку

ExcelApp.WorkBooks[1].WorkSheets[1].Cells[8, 9] := '__________________ ' + ФИО;

как мне закрасить "ФИО" красным цветом?

 

[sinkopa]

Добрый день! Помогите кто знает как при передачи строки в ячейку закрасить, например, ФИО.
Вот я передаю строку

ExcelApp.WorkBooks[1].WorkSheets[1].Cells[8, 9] := '__________________ ' + ФИО;

как мне закрасить "ФИО" красным цветом?

Я вот так это делал в свое время:
На форме:

type
TForm1 = class(TForm)

//........ //
Excel: TExcelApplication;
Workbook: TExcelWorkbook;
Worksheet: TExcelWorksheet;

//........ //

end;

В коде:

procedure TForm1.PrintToExcel;
begin
//........ //
Excel.Connect;
Workbook.ConnectTo(Excel.ActiveWorkbook);
Workbook.Sheets.Add(Workbook.Sheets[Workbook.Sheets.Count],EmptyParam,1,EmptyParam,0);
//........ //
Worksheet.ConnectTo(Workbook.Sheets[1] as _Worksheet);
Worksheet.Activate;
Worksheet.Cells.Item[8,9].FormulaR1C1 := '__________________ ФИО';
Worksheet.Cells.Item[8,9].Characters[21,23].Font.Color := clRed;
//........ //
end;

Вот. Это работает (через TExcelApplication).
Если Вы работаете с Экселем через OLE, я не уверен что там (у Cells) интерфейс Characters доступен... но попробуйте, чем черт не шутит...

 

[-master-]

TExcelApplication это обертка над ОЛЕ.