Delphi 7 Excel Ole 对象文本字体颜色答案

【问题标题】：Delphi 7 Excel Ole object text font colorDelphi 7 Excel Ole 对象文本字体颜色
【发布时间】：2016-03-24 10:12:49
【问题描述】：

如何在 delphi 7 和 MS Excel 2007+ 中设置单元格中的字体颜色（半文本其他颜色）？

示例：

【问题讨论】：

标签： excel delphi delphi-7 ole

【解决方案1】：

您使用单元格的Characters 属性来应用每个字符的格式。这是一个非常简单的例子：

uses
  ComObj, ActiveX, Graphics;

var
  Excel: OleVariant;
  Book: OleVariant;
  Cell: OleVariant;

begin
  CoInitialize(nil);
  Excel := CreateOleObject('Excel.Application');
  Book := Excel.WorkBooks.Add;
  Cell := Excel.Cells[1,1];
  Cell.Value := 'I DON''T SAY BLEH BLEH BLEH!!!';
  Cell.Characters(13, 14).Font.Color := clRed;
  Book.SaveAs('temp.xlsx');
  Excel.Quit;
end.

这里 13 是第一个字符的索引，14 是要选择的字符数。

这使用后期绑定。如果您更喜欢早期绑定，那么我预计代码需要稍作调整。

【讨论】：

【解决方案2】：

顺便说一句，如果你想为粗体设置喜欢的样式。这样写：

Cell.Characters(13, 14).Font.Bold := True;

【讨论】：