Define a cor de margem por aresta para um dos 12 espaços de cor de tema do Office com um matiz opcional. Companheiro de tema de
Border.Color. Disponível em cada selector de aresta (superior, inferior, esquerda, direita, diagonal, mais os selectores compostos xlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll). Disponível desde v2.61.0; o caminho de selector composto foi concluído em v2.63.0 (onda D fase 6)
Sintaxe
procedure SetThemeColor(ThemeIdx: Word; Tint: Double);
Parâmetros
ThemeIdx — espaço de tema com base 0 (0=lt1, 1=dk1, 2=lt2, 3=dk2, 4..9=accent1..6, 10=hlink, 11=foHlink)
Tint — ajuste de iluminação/escurecimento no estilo de especificação 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 que os definidores de Interior / Font:
- O registo XF recebe um icv indexado com melhor correspondência no slot de extremidade correspondente para compatibilidade com Excel 97-2003
- O registo XFExt $087D recebe um slot FullColorExt para o extType de borda correspondente ($0007 topo, $0008 fundo, $0009 esquerda, $000A direita, $000B diagonal) com
xclrType=3 e xclrValue=ThemeIdx
Os selectores compostos registam um espaço XFExt por aresta física numa única passagem de ciclo de célula através do auxiliar de conjunto de espaços interno.
xlAround regista
{rsTop, rsBottom, rsLeft, rsRight};
xlInsideVertical regista
{rsLeft, rsRight};
xlInsideHorizontal regista
{rsTop, rsBottom};
xlInsideAll regista todos os quatro. A leitura através de
Border.Color devolve o RGB resolvido
O BIFF8 FullColorExt apenas transporta uma única cor diagonal, pelo que xlDiagonalDown e xlDiagonalUp partilham o mesmo espaço XFExt (rsDiag)
Exemplo
Contorna uma banda de relatório com accent4 (cor de tema) e adiciona um separador interno accent5 com um matiz 25% mais 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 também