Enumeração MsoThemeColorSchemeIndex (Office)

Indica o esquema de cores de um tema do Office.

Nome	Valor	Descrição
msoThemeAccent1	5	Especifica o esquema de cores Ênfase 1.
msoThemeAccent2	6	Especifica o esquema de cores Ênfase 2.
msoThemeAccent3	7	Especifica o esquema de cores Ênfase 3.
msoThemeAccent4	8	Especifica o esquema de cores Ênfase 4.
msoThemeAccent5	9	Especifica o esquema de cores Ênfase 5.
msoThemeAccent6	10	Especifica o esquema de cores Ênfase 6.
msoThemeDark1	1	Especifica o esquema de cores Escuro 1.
msoThemeDark2	3	Especifica o esquema de cores Escuro 2.
msoThemeFollowedHyperlink	12	Especifica um esquema de cores para um hiperlink clicado.
msoThemeHyperlink	11	Especifica um esquema de cores para um hiperlink.
msoThemeLight1	2	Especifica o esquema de cores Claro 1.
msoThemeLight2	4	Especifica o esquema de cores Claro 2.

Comentários

Um Tema do Office.ThemeColorShceme é composto por duas cores claras, duas cores escuras, seis cores de ênfase e duas cores para texto hiperlinked. Use essa enumeração para definir ou retornar as cores do tema especificado. Quando as cores do tema são atribuídas ao objeto ColorFormat para uma forma, elas são mapeadas por meio da enumeração MsoThemeColorIndex. Para o PowerPoint, esse mapeamento leva em conta se o objeto está presente em um estilo de fundo claro ou escuro para o slide. Há doze estilos de fundo, seis claros e seis escuros. Para um estilo de fundo claro, um objeto definido para usar msoThemeColorBackground1 será atribuído à cor Escura 1 do tema. Para o mesmo objeto em um dos estilos de fundo escuro, a cor Light 1 é usada para a mesma atribuição msoThemeColorBackground1.

Ao atribuir programaticamente uma cor de tema a um objeto, a enumeração MsoThemeColorIndex deve ser usada, especificamente os valores de 13 a 16 para as quatro primeiras cores do tema. Se os valores de 1 a 4 forem usados, a interface do usuário do seletor de cores do Office não destacará corretamente a cor do tema.

Exemplo

O exemplo a seguir gera os valores de cor Hex no formato BGR para as doze cores no tema para o primeiro mestre de slides na apresentação ativa, na ordem em que eles aparecem na interface do usuário do editor de temas do 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.