Définit la couleur de motif (arrière-plan) de cellule à l'un des 12 emplacements de couleur de thème Office avec un ajustement de teinte optionnel. Ceci est le compagnon de couleur de motif de
Interior.SetThemeColor — utilisez-le conjointement avec un
Pattern non solide pour rendre des remplissages hachurés / pointillés qui se re-teintent lorsqu'Excel réapplique le thème du classeur. Disponible depuis v2.61.0 (vague D phase 4 du backlog de graphiques)
Syntaxe
procedure SetPatternThemeColor(ThemeIdx: Word; Tint: Double);
Paramètres
ThemeIdx — emplacement de thème basé sur 0
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — ajustement d'éclaircissement/assombrissement selon la spécification dans la plage -1,0 .. +1,0
Encodé dans FullColorExt.nTintShade sous forme d'entier signé Q15 dans l'enregistrement XFExt
Remarques
Deux fils sont émis à chaque appel afin que la cellule s'affiche correctement dans Excel 2007+ et Excel 2003 :
- L'enregistrement XF reçoit un icv indexé de meilleure correspondance pour la couleur de motif, chemin lecteur hérité
- L'enregistrement XFExt $087D reçoit une case FullColorExt pour le extType
fillBg ($0005) avec xclrType=3 (thème), xclrValue=ThemeIdx et nTintShade dérivé de Tint
La relecture via
Interior.PatternColor retourne le RVB résolu (thème + teinte appliqués), de sorte que les appelants voient toujours un LongWord concret
Exemple
Affiche une bande d'avertissement rayée en utilisant les emplacements de thème accent1 / accent2 afin que les couleurs suivent le thème du classeur
var
Stripes: IXLSRange;
begin
Stripes := Workbook.Sheets[1].Range['B2', 'B10'];
Stripes.Interior.Pattern := xlPatternGray25;
Stripes.Interior.SetThemeColor(4, 0.4); // fill foreground (accent1, lighter)
Stripes.Interior.SetPatternThemeColor(5, - 0.25); // pattern color (accent2, darker)
Workbook.SaveAs('PatternThemeFills.xls', xlExcel97);
end;
Voir aussi