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) 

© 2014 Microsoft