ThemeColorScheme.Colors 方法 (Office)

获取一个代表 Microsoft Office 主题的配色方案中颜色的对象。

语法

expression.Colors(Index)

表达 返回 ThemeColorScheme 对象的表达式。

参数

名称	必需/可选	数据类型	说明
Index	必需	MsoThemeColorSchemeIndex	ThemeColor 对象的索引值。

返回值

ThemeColor

示例

在以下示例中， msoThemeAccent1 主题颜色设置为 红色，然后将方案保存到文件中。

Dim tTheme As OfficeTheme 
Dim tcsThemeColorScheme As ThemeColorScheme 
Dim tcThemeColor As ThemeColor 
tcThemeColor.RGB = RGB(255, 0, 0) 
Set tcColorScheme.Colors(msoThemeAccent1) = tcThemeColor 
tcsThemeColorScheme.Save ("C:\myThemeColorScheme.xml") 

另请参阅

• ThemeColorScheme 对象成员

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。