Перечисление MsoThemeColorSchemeIndex (Office)

Указывает цветовую схему темы Office.

Имя	Значение	Описание
msoThemeAccent1	5	Задает цветовую схему Акцент 1.
msoThemeAccent2	6	Задает цветовую схему Акцент 2.
msoThemeAccent3	7	Задает цветовую схему Акцент 3.
msoThemeAccent4	8	Задает цветовую схему Акцент 4.
msoThemeAccent5	9	Задает цветовую схему Акцент 5.
msoThemeAccent6	10	Задает цветовую схему Акцент 6.
msoThemeDark1	1	Задает цветовую схему Dark 1.
msoThemeDark2	3	Задает цветовую схему Темный 2.
msoThemeFollowedHyperlink	12	Задает цветовую схему для щелкнутой гиперссылки.
msoThemeHyperlink	11	Задает цветовую схему для гиперссылки.
msoThemeLight1	2	Задает цветовую схему Светлый 1.
msoThemeLight2	4	Задает цветовую схему Светлый 2.

Замечания

Office Theme.ThemeColorShceme состоит из двух светлых цветов, двух темных цветов, шести цветов акцента и двух цветов для текста с гиперссылкой. Используйте это перечисление, чтобы задать или вернуть цвета для указанной темы. Когда цвета темы назначаются объекту ColorFormat для фигуры, они сопоставляются с помощью перечисления MsoThemeColorIndex. Для PowerPoint это сопоставление учитывает, присутствует ли объект на светлом или темном фоне слайда. Есть двенадцать стилей фона, шесть светлых и шесть темных. Для светлого стиля фона объекту, заданному для использования msoThemeColorBackground1, будет назначен цвет Dark 1 из темы. Для одного и того же объекта в одном из темных стилей фона цвет Светлый 1 используется для того же назначения msoThemeColorBackground1.

При программном назначении цвета темы объекту следует использовать перечисление MsoThemeColorIndex, в частности значения от 13 до 16 для первых четырех цветов темы. Если используются значения от 1 до 4, пользовательский интерфейс средства выбора цвета Office не будет правильно выделять цвет темы.

Пример

В следующем примере отображаются значения шестнадцатеричных цветов в формате BGR для двенадцати цветов в теме для первого образца слайдов в активной презентации в том порядке, в котором они отображаются в пользовательском интерфейсе редактора тем 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.