Example

The following example sets the Headings font scheme in an Office theme to a Latin scheme.

Visual Basic for Applications 
Dim tTheme As OfficeTheme Dim tfThemeFontScheme As ThemeFontScheme Dim tfThemeFont As ThemeFont Set tfThemeFontScheme = tTheme.ThemeFontScheme Set tfThemeFont = tfThemeFontScheme.MajorFont(msoThemeLatin)

See also: