Sætter skrifttypefarven til en af de 12 Office-temafarvepladser med valgfri justering af farvetone. Tema-modstykke til
Font.Color — brug den, når programmet vil følge projektmappens temapalet i stedet for at fastlåse en bogstavelig RGB. Tilgængelig siden v2.61.0 (chart backlog wave D fase 4)
Syntaks
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parametre
ThemeIdx — 0-based theme slot
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — spec-style lighter/darker adjustment in the range -1.0 .. +1.0
Encoded into the XFExt FullColorExt as a Q15 signed integer in nTintShade
Bemærkninger
The setter behaves identically to
Interior.SetThemeColormen skriver rsFont-pladsen i XFExt $087D extType ($000D). Font-XF-posten får stadig et bedst matchende indekseret icv, så Excel 97-2003 ser en approksimation; Excel 2007+ genskaber den præcise tema-idx + farvetone fra XFExt FullColorExt-pladsen
Reading back via
Font.Color returnerer RGB opløst gennem projektmappens BIFF-temapalet, så programmet altid ser en konkret LongWord, uanset om den oprindelige setter var RGB- eller temabaseret
Eksempel
Mærker en revisionskolonne med accent3 + farvetone, så skrifttypefarven følger projektmappens tema
Workbook.Sheets[1].Range['D2', 'D50'].Font.SetThemeColor(6, - 0.25);
Workbook.SaveAs('AuditColumn.xls', xlExcel97);
Se også