Define a cor da fonte em um dos 12 slots de cor de tema do Office com um ajuste de tonalidade opcional. Complemento de tema de
Font.Color — use-o quando o aplicativo quiser seguir a paleta de temas da pasta de trabalho em vez de fixar um RGB literal. Disponível desde v2.61.0 (backlog de gráfico onda D fase 4)
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
O setter se comporta de forma idêntica a
Interior.SetThemeColor, mas grava o slot rsFont do XFExt $087D extType ($000D). A entrada XF Font ainda recebe um icv indexado de melhor correspondência para que o Excel 97-2003 veja uma aproximação; o Excel 2007+ recupera o idx de tema exato + tonalidade do slot FullColorExt XFExt
A leitura de volta via
Font.Color retorna o RGB resolvido por meio da paleta de tema BIFF da pasta de trabalho, portanto o aplicativo sempre vê um LongWord concreto independentemente de o setter original ser baseado em RGB ou tema
Exemplo
Marca uma coluna de auditoria com accent3 + tonalidade para que a cor da fonte acompanhe o tema da pasta de trabalho
Workbook.Sheets[1].Range['D2', 'D50'].Font.SetThemeColor(6, - 0.25);
Workbook.SaveAs('AuditColumn.xls', xlExcel97);
Veja também