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

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

例：

Answer 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是要select的字符的数量。

这使用后期绑定。 如果你更喜欢早期的绑定，那么我会希望代码需要一些调整。