Définit la couleur de bordure par bord à l'un des 12 emplacements de couleur de thème Office avec une teinte optionnelle. Compagnon de thème de
Border.Color. Disponible sur chaque sélecteur de bord (haut, bas, gauche, droite, diagonal, plus les sélecteurs composés xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Disponible depuis v2.61.0 ; le chemin du sélecteur composé a été complété en v2.63.0 (vague D phase 6)
Syntaxe
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Paramètres
ThemeIdx — emplacement de thème basé sur 0
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — ajustement d'éclaircissement/assombrissement selon la spécification dans la plage -1,0 .. +1,0
Encodé dans le FullColorExt XFExt sous forme d'entier signé Q15 dans nTintShade
Remarques
Même émission double fil que les setters Interior / Font :
- L'enregistrement XF reçoit un icv indexé de meilleure correspondance sur la case d'arête correspondante pour la compatibilité Excel 97-2003
- L'enregistrement XFExt $087D reçoit une case FullColorExt pour le extType d'arête correspondant ($0007 top, $0008 bottom, $0009 left, $000A right, $000B diagonal) avec
xclrType=3 et xclrValue=ThemeIdx
Les sélecteurs composés enregistrent un emplacement XFExt par bord physique en une seule passe de boucle de cellule via la fonction utilitaire interne d'ensemble d'emplacements.
xlAround enregistre
{rsTop, rsBottom, rsLeft, rsRight} ;
xlInsideVertical enregistre
{rsLeft, rsRight} ;
xlInsideHorizontal enregistre
{rsTop, rsBottom} ;
xlInsideAll enregistre les quatre. La relecture via
Border.Color retourne le RVB résolu
BIFF8 FullColorExt ne transporte qu'une seule couleur diagonale, donc xlDiagonalDown et xlDiagonalUp partagent le même emplacement XFExt (rsDiag)
Exemple
Encadre 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