Définit la couleur de police sur l'un des 12 emplacements de couleurs du thème Office, avec un ajustement de teinte facultatif. Équivalent thème de
Font.Color — utilisez-le quand l'application veut suivre la palette de thème du classeur au lieu de figer un RGB littéral. Disponible depuis la v2.61.0 (vague D du backlog graphique, phase 4)
Syntaxe
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Paramètres
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
Remarques
The setter behaves identically to
Interior.SetThemeColor, mais écrit l'emplacement rsFont de l'extType $087D du XFExt ($000D). L'entrée XF de la police reçoit quand même un icv indexé au meilleur match, si bien qu'Excel 97-2003 voit une approximation ; Excel 2007+ retrouve l'idx de thème + teinte exacts depuis l'emplacement FullColorExt du XFExt
Reading back via
Font.Color renvoie le RGB résolu via la palette de thème BIFF du classeur, si bien que l'application voit toujours un LongWord concret, que le setter d'origine soit RGB ou basé thème
Exemple
Marque une colonne d'audit avec accent3 + teinte pour que la couleur de police suive le thème du classeur
Workbook.Sheets[1].Range['D2', 'D50'].Font.SetThemeColor(6, - 0.25);
Workbook.SaveAs('AuditColumn.xls', xlExcel97);
Voir aussi