MsoThemeColorSchemeIndex 枚举 (Office)

指示 Office 主题的配色方案。

名称	值	Description
msoThemeAccent1	5	指定配色方案“强调文字颜色 1”。
msoThemeAccent2	6	指定配色方案“强调文字颜色 2”。
msoThemeAccent3	7	指定配色方案“强调文字颜色 3”。
msoThemeAccent4	8	指定配色方案“强调文字颜色 4”。
msoThemeAccent5	9	指定配色方案“强调文字颜色 5”。
msoThemeAccent6	10	指定配色方案“强调文字颜色 6”。
msoThemeDark1	1	指定配色方案“深色 1”。
msoThemeDark2	3	指定配色方案“深色 2”。
msoThemeFollowedHyperlink	12	指定已单击超链接的配色方案。
msoThemeHyperlink	11	指定超链接的配色方案。
msoThemeLight1	2	指定配色方案“浅色 1”。
msoThemeLight2	4	指定配色方案“浅色 2”。

备注

Office Theme.ThemeColorShceme 包含两种浅色、两种深色、六种主题色和两种超链接文本颜色。 使用此枚举可设置或返回指定主题的颜色。 将主题颜色分配给形状的 ColorFormat 对象时，它们通过 MsoThemeColorIndex 枚举进行映射。 对于 PowerPoint，此映射将考虑对象在幻灯片的浅色或深色背景样式上。 有十二种背景样式，六种浅色和六种深色。 对于浅色背景样式，设置为使用 msoThemeColorBackground1 的对象将从主题分配到深色 1 颜色。 对于其中一种深色背景样式上的同一对象，浅色 1 颜色用于相同的 msoThemeColorBackground1 分配。

以编程方式向对象分配主题颜色时，应使用 MsoThemeColorIndex 枚举，特别是主题的前四种颜色的值为 13 到 16。 如果使用值 1 到 4，则 Office 颜色选取器 UI 不会正确突出显示主题颜色。

示例

以下示例以 BGR 格式输出当前演示文稿中第一张幻灯片母版主题中的十二种颜色的十六进制颜色值，其出现在 Office 主题编辑器 UI 中的顺序。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。