Enumeração MsoThemeColorSchemeIndex (Office)

Indica o esquema de cores de um tema do Office.

Comentários

Um Office Theme.ThemeColorShceme compreende duas cores claras, duas cores escuras, seis cores de ênfase e duas cores para texto com hiperlink. 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 de uma forma, elas são mapeadas por meio da enumeração MsoThemeColorIndex . Para o PowerPoint, esse mapeamento leva em consideração se o objeto está presente em um estilo de plano de fundo claro ou escuro para o slide. Existem doze estilos de plano de fundo, seis claros e seis escuros. Para um estilo de plano de fundo claro, um objeto definido para usar msoThemeColorBackground1 será atribuído à cor Escuro 1 do tema. Para o mesmo objeto em um dos estilos de plano 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 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 realçará corretamente a cor do tema.

Exemplo

O exemplo a seguir gera os valores de cor hexadecimal no formato BGR para as doze cores no tema do primeiro slide master na apresentação ativa, na ordem em que 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.