Nastaví barvu vzoru buňky (pozadí) na jeden z 12 slotů barev motivu Office s volitelnou úpravou tónu. Toto je doprovodná funkce vzoru pro
Interior.SetThemeColor — použijte ji spolu s nepevným
vzorem k vykreslení šrafovaných nebo tečkovaných výplní, které se přebarví při opětovném použití motivu sešitu v Excelu. Dostupná od v2.61.0 (vlna zásobníku grafů D fáze 4)
Syntaxe
procedure SetPatternThemeColor(ThemeIdx: Word; Tint: Double);
Parametry
ThemeIdx — slot motivu na bázi 0
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — úprava zesvětlení/ztmavení ve stylu specifikace v rozsahu -1.0 .. +1.0
Kódováno do FullColorExt.nTintShade jako Q15 celé číslo se znaménkem v záznamu XFExt
Poznámky
Pro každé volání jsou emitovány dva dráty, aby se buňka správně vykreslila v Excelu 2007+ i Excelu 2003:
- Záznam XF dostane nejlepší odpovídající indexovaný icv pro barvu vzoru (cesta starší čtečky)
- Záznam XFExt $087D dostane slot FullColorExt pro typ rozšíření
fillBg ($0005) s xclrType=3 (téma), xclrValue=ThemeIdx a nTintShade odvozeným z Tint
Zpětné čtení prostřednictvím
Interior.PatternColor vrátí přeloženou hodnotu RGB (motiv + použitý tón), takže volající vždy vidí konkrétní hodnotu LongWord
Příklad
Vykreslí pruhovaný varovný pás pomocí slotů motivu accent1 / accent2, aby barvy sledovaly motiv sešitu
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;
Viz také