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

novachok

New Member
16.08.2012
1
0
#1
Добрый день! Помогите кто знает как при передачи строки в ячейку закрасить, например, ФИО.
Вот я передаю строку
Код:
ExcelApp.WorkBooks[1].WorkSheets[1].Cells[8, 9] := '__________________ ' + ФИО;
как мне закрасить "ФИО" красным цветом?
 

sinkopa

Well-Known Member
17.06.2009
344
9
#2
Добрый день! Помогите кто знает как при передачи строки в ячейку закрасить, например, ФИО.
Вот я передаю строку
Код:
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 доступен... но попробуйте, чем черт не шутит... :)