Establece el color de borde por arista en uno de los 12 slots de color de tema de Office con un tono opcional. Complemento de tema de
Border.Color. Disponible en todos los selectores de borde (superior, inferior, izquierdo, derecho, diagonal, además de los selectores compuestos xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Disponible desde v2.61.0; la ruta de selectores compuestos se completó en v2.63.0 (ola D de la lista de espera de gráficos, fase 6)
Sintaxis
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parámetros
ThemeIdx — slot 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/oscurecido en el rango -1,0 .. +1,0
Codificado en el XFExt FullColorExt como entero con signo Q15 en nTintShade
Observaciones
La misma emisión dual que los establecedores de Interior / Font:
- El registro XF obtiene un icv indexado de mejor coincidencia en la ranura de borde coincidente para compatibilidad con Excel 97-2003
- El registro XFExt $087D obtiene una ranura FullColorExt para el extType de borde coincidente ($0007 superior, $0008 inferior, $0009 izquierdo, $000A derecho, $000B diagonal) con
xclrType=3 y xclrValue=ThemeIdx
Los selectores compuestos registran un slot XFExt por borde físico en un único paso de bucle de celda mediante el auxiliar interno de conjunto de slots.
xlAround registra
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical registra
{rsLeft, rsRight};
xlInsideHorizontal registra
{rsTop, rsBottom};
xlInsideAll registra los cuatro. La lectura mediante
Border.Color devuelve el RGB resuelto
BIFF8 FullColorExt solo lleva un único color diagonal, por lo que xlDiagonalDown y xlDiagonalUp comparten el mismo slot XFExt (rsDiag)
Ejemplo
Enmarca una banda de informe con accent4 (color de tema) y añade un separador interior accent5 con un tono un 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;
Véase también