Delphi 7 Excel Ole nesne metni yazı tipi rengi

Question

Delphi 7 ve MS Excel 2007+ ile font rengini hücrede (yarım renkli başka bir renk) nasıl ayarlayabilirim?

Örnek:

Answer 1

Sen Çerezsiz biçimlendirmeyi uygulamak için bir hücrenin Characters özelliğini kullanın. İşte çok basit bir örnektir:

İşte 13

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. 

ilk karakterin endeksidir ve 14 karakter sayısı seçmektir.

Bu, geç bağlama kullanır. Erken bağlama tercih ederseniz, kodun biraz ayarlanması gerekeceğini umuyorum.