Define a cor de borda por extremidade em um dos 12 slots de cor de tema do Office com uma tonalidade opcional. Complemento de tema de
Border.Color. Disponível em cada seletor de extremidade (superior, inferior, esquerda, direita, diagonal, além dos seletores compostos xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Disponível desde v2.61.0; o caminho do seletor composto foi concluído em v2.63.0 (onda D fase 6)
Sintaxe
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parâmetros
ThemeIdx — slot de tema baseado em 0 (0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — ajuste de mais claro/mais escuro no intervalo -1.0 .. +1.0. Codificado no XFExt FullColorExt como um inteiro com sinal Q15 em nTintShade
Observações
Mesma emissão de fio duplo dos setters Interior / Font:
- O registro XF recebe um icv indexado de melhor correspondência no slot de borda correspondente para compatibilidade com o Excel 97-2003
- O registro XFExt $087D recebe um slot FullColorExt para o extType de borda correspondente ($0007 top, $0008 bottom, $0009 left, $000A right, $000B diagonal) com
xclrType=3 e xclrValue=ThemeIdx
Seletores compostos registram um slot XFExt por extremidade física em uma única passagem de loop de célula via o auxiliar interno de conjunto de slots.
xlAround registra
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical registra
{rsLeft, rsRight};
xlInsideHorizontal registra
{rsTop, rsBottom};
xlInsideAll registra todos os quatro. A leitura de volta por meio de
Border.Color retorna o RGB resolvido
O BIFF8 FullColorExt carrega apenas uma única cor diagonal, portanto xlDiagonalDown e xlDiagonalUp compartilham o mesmo slot XFExt (rsDiag)
Exemplo
Delineia uma faixa de relatório com accent4 (cor de tema) e adiciona um separador accent5 interno com uma tonalidade 25% mais clara
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;
Veja também