Compartilhar via


Objeto ThemeFont (Office)

Representa um contêiner dos esquemas de fonte de um tema do Microsoft Office.

Exemplo

O seguinte exemplo define o esquema de fonte dos Títulos em um tema do Microsoft Office com um esquema latino.

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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.