Ställer in per-kant kantfärgen till en av de 12 Office-temafärgplatserna med en valfri nyans. Temaföljare till
Border.Color. Tillgänglig på varje kantväljare (övre, nedre, vänstra, högra, diagonal samt de sammansatta väljarna xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Tillgänglig sedan v2.61.0; den sammansatta väljarvägen slutfördes i v2.63.0 (wave D fas 6)
Syntax
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parametrar
ThemeIdx — 0-baserad temaplats
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — specifikationsliknande ljusare/mörkare justering i intervallet -1.0 .. +1.0
Kodad i XFExt FullColorExt som ett Q15 teckenat heltal i nTintShade
Anmärkningar
Samma dubbel-trådsemission som Interior / Font-ställarna:
- XF-posten får en bästa möjliga indexerad icv på den matchande kantplatsen för kompatibilitet med Excel 97-2003
- XFExt-posten $087D får en FullColorExt-plats för den matchande border extType ($0007 top, $0008 bottom, $0009 left, $000A right, $000B diagonal) med
xclrType=3 och xclrValue=ThemeIdx
Sammansatta väljare registrerar en XFExt-plats per fysisk kant i ett enda celloop-pass via den interna platsmängdshjälparen.
xlAround registrerar
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical registrerar
{rsLeft, rsRight};
xlInsideHorizontal registrerar
{rsTop, rsBottom};
xlInsideAll registrerar alla fyra. Läsning via
Border.Color returnerar det lösta RGB-värdet
BIFF8 FullColorExt bär bara en enda diagonal färg, så xlDiagonalDown och xlDiagonalUp delar samma XFExt-plats (rsDiag)
Exempel
Omger ett rapportband med accent4 (temafärg) och lägger till en inre accent5-separator med 25% ljusare nyans
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