Sätter kantfärgen per kant till en av de 12 Office-temafärgplatserna med valfri tint. Temamotsvarigheten till
Border.Color. Tillgänglig på varje kantväljare (topp, botten, vänster, höger, diagonal, plus de sammansatta väljarna xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Tillgängligt sedan v2.61.0; vägen för sammansatta väljare färdigställdes i v2.63.0 (våg D fas 6)
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
Same dual-wire emission as the Interior / Font setters:
- XF-posten får ett bäst matchande indexerat icv på motsvarande kantplats för kompatibilitet med Excel 97-2003
- XFExt-posten $087D får en FullColorExt-plats för motsvarande kantlinje-extType ($0007 överkant, $0008 underkant, $0009 vänster, $000A höger, $000B diagonal) med
xclrType=3 and xclrValue=ThemeIdx
Sammansatta väljare registrerar en XFExt-plats per fysisk kant i ett enda cellgenomlopp via den interna hjälparen för platssättning.
xlAround registers
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical registers
{rsLeft, rsRight};
xlInsideHorizontal registers
{rsTop, rsBottom};
xlInsideAll registers all four. Read-back through
Border.Color returns the resolved RGB
BIFF8 FullColorExt only carries a single diagonal color, so xlDiagonalDown and xlDiagonalUp share the same XFExt slot (rsDiag)
Exempel
Kantar ett rapportband med accent4 (temafärg) och lägger till en inre accent5-avdelare med 25% ljusare tint
var
Report: IXLSRange;
begin
Report := Workbook.Sheets[1].Range['A1', 'F20'];
Report.Borders[xlAround].SetThemeColor(7, 0.0);
Report.Borders[xlInsideHorizontal].SetThemeColor(8, 0.25);
Workbook.SaveAs('ThemedBorders.xls', xlExcel97);
end;
Se även