Establece el color del borde por borde a una de las 12 ranuras de color del tema de Office con un tono opcional. Complemento de tema de
Border.Color. Disponible en cada selector de borde (superior, inferior, izquierdo, derecho, diagonal, además de los selectores compuestos xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Disponible desde v2.61.0; la ruta del selector compuesto se completó en v2.63.0 (ola D fase 6)
Sintaxis
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parámetros
ThemeIdx — ranura de tema de base 0
(0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — ajuste de aclarado/oscurecimiento al estilo de la especificación en el rango -1.0 .. +1.0
Codificado en el XFExt FullColorExt como un entero con signo Q15 en nTintShade
Observaciones
La misma emisión de doble cable que los setters de Interior / Font:
- El registro XF obtiene un icv indexado de mejor coincidencia en el lado correspondiente para compatibilidad con Excel 97-2003
- El registro XFExt $087D obtiene una ranura FullColorExt para el extType de borde correspondiente ($0007 arriba, $0008 abajo, $0009 izquierda, $000A derecha, $000B diagonal) con
xclrType=3 y xclrValue=ThemeIdx
Los selectores compuestos registran una ranura XFExt por borde físico en un único paso de bucle de celda mediante el auxiliar de conjunto de ranuras interno.
xlAround registra
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical registra
{rsLeft, rsRight};
xlInsideHorizontal registra
{rsTop, rsBottom};
xlInsideAll registra los cuatro. La lectura a través de
Border.Color devuelve el RGB resuelto
BIFF8 FullColorExt solo lleva un único color diagonal, por lo que xlDiagonalDown y xlDiagonalUp comparten la misma ranura XFExt (rsDiag)
Ejemplo
Enmarca una banda de informe con accent4 (color de tema) y agrega un separador interno accent5 con un tono 25% más claro
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;
Ver también