Enumeración MsoThemeColorSchemeIndex (Office)

Indica la combinación de colores de un tema de Office.

Nombre	Valor	Descripción
msoThemeAccent1	5	Especifica la combinación de colores Énfasis 1.
msoThemeAccent2	6	Especifica la combinación de colores Énfasis 2.
msoThemeAccent3	7	Especifica la combinación de colores Énfasis 3.
msoThemeAccent4	8	Especifica la combinación de colores Énfasis 4.
msoThemeAccent5	9	Especifica la combinación de colores Énfasis 5.
msoThemeAccent6	10	Especifica la combinación de colores Énfasis 6.
msoThemeDark1	1	Especifica la combinación de colores Oscuro 1.
msoThemeDark2	3	Especifica la combinación de colores Oscuro 2.
msoThemeFollowedHyperlink	12	Especifica una combinación de colores para un hipervínculo en el que se ha hecho clic.
msoThemeHyperlink	11	Especifica una combinación de colores para un hipervínculo.
msoThemeLight1	2	Especifica la combinación de colores Claro 1.
msoThemeLight2	4	Especifica la combinación de colores Claro 2.

Comentarios

Un tema de Office.ThemeColorShceme consta de dos colores claros, dos colores oscuros, seis colores de énfasis y dos colores para el texto con hipervínculo. Use esta enumeración para establecer o devolver los colores del tema especificado. Cuando se asignan colores de tema al objeto ColorFormat para una forma, se asignan a través de la enumeración MsoThemeColorIndex. Para PowerPoint, esta asignación tiene en cuenta si el objeto está presente en un estilo de fondo claro o oscuro para la diapositiva. Hay doce estilos de fondo, seis claros y seis oscuros. Para un estilo de fondo claro, un objeto establecido para usar msoThemeColorBackground1 se asignará al color Oscuro 1 del tema. Para el mismo objeto en uno de los estilos de fondo oscuro, el color Claro 1 se usa para la misma asignación msoThemeColorBackground1.

Al asignar mediante programación un color de tema a un objeto, se debe usar la enumeración MsoThemeColorIndex, concretamente los valores de 13 a 16 para los cuatro primeros colores del tema. Si se usan los valores 1 a 4, la interfaz de usuario del selector de colores de Office no resaltará correctamente el color del tema.

Ejemplo:

En el ejemplo siguiente se muestran los valores de color hexadecimal en formato BGR para los doce colores del tema para el primer patrón de diapositivas de la presentación activa, en el orden en que aparecen en la interfaz de usuario del editor de temas de Office.

Sub ShowThemeColors()
    With ActivePresentation.Designs(1).SlideMaster.Theme
        Debug.Print Hex(.ThemeColorScheme(msoThemeLight1).RGB)  ' 2
        Debug.Print Hex(.ThemeColorScheme(msoThemeDark1).RGB)   ' 1
        Debug.Print Hex(.ThemeColorScheme(msoThemeLight2).RGB)  ' 4
        Debug.Print Hex(.ThemeColorScheme(msoThemeDark2).RGB)   ' 3
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent1).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent2).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent3).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent4).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent5).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeHyperlink).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent6).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeFollowedHyperlink).RGB)
    End With
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.