Establece el color de fuente a una de las 12 ranuras de color del tema de Office con un ajuste de tono opcional. Complemento de tema de
Font.Color — úselo cuando la aplicación quiera seguir la paleta de tema del libro de trabajo en lugar de fijar un RGB literal. Disponible desde v2.61.0 (ola D fase 4 del backlog de gráficos)
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
El setter se comporta de forma idéntica a
Interior.SetThemeColor, pero escribe la ranura rsFont del XFExt $087D extType ($000D). La entrada XF de Font todavía recibe un icv indexado de mejor coincidencia para que Excel 97-2003 vea una aproximación; Excel 2007+ recupera el índice de tema exacto + tono de la ranura FullColorExt de XFExt
La lectura a través de
Font.Color devuelve el RGB resuelto a través de la paleta de tema BIFF del libro de trabajo, por lo que la aplicación siempre ve un LongWord concreto independientemente de si el setter original fue RGB o basado en tema
Ejemplo
Etiqueta una columna de auditoría con accent3 + tono para que el color de fuente siga el tema del libro de trabajo
Workbook.Sheets[1].Range['D2', 'D50'].Font.SetThemeColor(6, - 0.25);
Workbook.SaveAs('AuditColumn.xls', xlExcel97);
Ver también