Example

The following example sets a ThemeColor object to the msoThemeAccent1 constant.

Visual Basic for Applications 
Dim tcsThemeColorScheme As ThemeColorScheme Dim tcThemeColor As ThemeColor Set tcThemeColor = tcsThemeColorScheme.Colors(msoThemeAccent1)

See also: