Définit la couleur de bordure par bord sur l'un des 12 emplacements de couleurs du thème Office, avec une teinte facultative. Équivalent thème de
Border.Color. Disponible sur chaque sélecteur de bord (haut, bas, gauche, droite, diagonale, plus les sélecteurs composés xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Disponible depuis la v2.61.0 ; le chemin des sélecteurs composés a été complété en v2.63.0 (vague D phase 6)
Syntaxe
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Paramètres
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
Remarques
Same dual-wire emission as the Interior / Font setters:
- L'enregistrement XF reçoit un icv indexé au meilleur match sur l'emplacement de bord correspondant, pour la compatibilité Excel 97-2003
- L'enregistrement XFExt $087D reçoit un emplacement FullColorExt pour l'extType de bordure correspondant ($0007 haut, $0008 bas, $0009 gauche, $000A droite, $000B diagonale) avec
xclrType=3 and xclrValue=ThemeIdx
Les sélecteurs composés enregistrent un emplacement XFExt par bord physique en une seule passe de boucle sur les cellules, via l'assistant interne de définition d'emplacements
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)
Exemple
Contoure une bande de rapport avec accent4 (couleur de thème) et ajoute un séparateur intérieur accent5 avec une teinte 25 % plus claire
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;
Voir aussi