Sätter typsnittsfärgen till en av de 12 Office-temafärgplatserna med valfri justering av tint. Temamotsvarigheten till
Font.Color — använd den när applikationen vill följa arbetsbokens temapalett i stället för att låsa en bokstavlig RGB. Tillgängligt sedan v2.61.0 (chart backlog våg D fas 4)
Syntax
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parametrar
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
Anmärkningar
The setter behaves identically to
Interior.SetThemeColor, men skriver rsFont-platsen i XFExt $087D extType ($000D). Fontens XF-post får fortfarande ett bäst matchande indexerat icv så att Excel 97-2003 ser en approximation; Excel 2007+ återfår den exakta temakombinationen idx + tint från XFExt-platsen FullColorExt
Reading back via
Font.Color returnerar RGB upplöst genom arbetsbokens BIFF-temapalett, så applikationen alltid ser ett konkret LongWord oavsett om den ursprungliga settern var RGB- eller temabaserad
Exempel
Märker en spårkolumn med accent3 + tint så att typsnittsfärgen följer arbetsbokens tema
Workbook.Sheets[1].Range['D2', 'D50'].Font.SetThemeColor(6, - 0.25);
Workbook.SaveAs('AuditColumn.xls', xlExcel97);
Se även