Stelt de patroonkleur (achtergrond) van de cel in op één van de 12 Office-themakleursloten met een optionele tintaanpassing. Dit is de patroonkleur-companion van
Interior.SetThemeColor — gebruik het samen met een niet-effen
Pattern om arcering- en stippatronen te maken die opnieuw kleuren wanneer Excel het werkmapthema opnieuw toepast. Beschikbaar sinds v2.61.0 (chart backlog wave D fase 4)
Syntaxis
procedure SetPatternThemeColor(ThemeIdx: Word; Tint: Double);
Parameters
ThemeIdx — 0-based theme slot
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — aanpassing lichter/donkerder in spec-stijl, in het bereik -1.0 .. +1.0
Encoded into FullColorExt.nTintShade as a Q15 signed integer on the XFExt
record
Opmerkingen
Elke aanroep schrijft twee draden zodat de cel correct wordt weergegeven in zowel Excel 2007+ als Excel 2003:
- Het XF-record krijgt een best-match geïndexeerde icv voor de patroonkleur (legacy-lezerpad)
- The XFExt $087D record gets a FullColorExt slot for the
fillBg extType ($0005) with xclrType=3 (theme), xclrValue=ThemeIdx, and nTintShade derived from Tint
Reading back via
Interior.PatternColor geeft de herleide RGB terug (thema + tint toegepast), zodat aanroepers altijd een concrete LongWord zien
Voorbeeld
Toont een gestreepte waarschuwingsband met de themaslots accent1 / accent2 zodat de kleuren het werkmapthema volgen
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;
Zie ook