Was this page helpful?
Your feedback about this content is important. Let us know what you think.
Additional feedback?
1500 characters remaining
Export (0) Print
Expand All

ThemeFont Object (Office)

Represents a container for the font schemes of a Microsoft Office theme.

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

Dim tTheme As OfficeTheme 
Dim tfThemeFontScheme As ThemeFontScheme 
Dim tfThemeFont As ThemeFont 
Set tfThemeFontScheme = tTheme.ThemeFontScheme 
Set tfThemeFont = tfThemeFontScheme.MajorFont(msoThemeLatin) 

Show:
© 2015 Microsoft