Delphi 7 Excel Oleオブジェクトのテキストフォントの色

Question

デルファイ7および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は選択する文字数です。

これはレイトバインディングを使用します。あなたが早期のバインディングを好むなら、私はコードが少し調整を必要とするだろうと期待します。