Compartilhar via


DocumentBase.DocumentTheme Property

Definition

Gets the Microsoft Office theme that is applied to the document.

public:
 property Microsoft::Office::Core::OfficeTheme ^ DocumentTheme { Microsoft::Office::Core::OfficeTheme ^ get(); };
public Microsoft.Office.Core.OfficeTheme DocumentTheme { get; }
member this.DocumentTheme : Microsoft.Office.Core.OfficeTheme
Public ReadOnly Property DocumentTheme As OfficeTheme

Property Value

A OfficeTheme object that represents the Microsoft Office theme that is applied to the document.

Examples

The following code example retrieves the current document theme and its corresponding font scheme. The code then retrieves and displays the names of the major font and the minor font of the Latin font face in a message box. To use this example, run it from the ThisDocument class in a document-level project.

private void GetDocumentTheme()
{
    Office.OfficeTheme theme = this.DocumentTheme;            
    Office.ThemeFontScheme fontScheme = theme.ThemeFontScheme;            
    Office.ThemeFont majorFont = fontScheme.MajorFont.Item(
        Office.MsoFontLanguageIndex.msoThemeLatin);
    Office.ThemeFont minorFont = fontScheme.MinorFont.Item(
        Office.MsoFontLanguageIndex.msoThemeLatin);
    MessageBox.Show("Name of major font in current document theme: "
        + majorFont.Name);
    MessageBox.Show("Name of minor font in current document theme: "
        + minorFont.Name);
}
Private Sub GetDocumentTheme()
    Dim theme As Office.OfficeTheme = Me.DocumentTheme
    Dim fontScheme As Office.ThemeFontScheme = theme.ThemeFontScheme
    Dim majorFont As Office.ThemeFont = fontScheme.MajorFont.Item( _
        Microsoft.Office.Core.MsoFontLanguageIndex.msoThemeLatin)
    Dim minorFont As Office.ThemeFont = fontScheme.MinorFont.Item( _
        Microsoft.Office.Core.MsoFontLanguageIndex.msoThemeLatin)
    MessageBox.Show("Name of major font in current document theme: " _
                    + majorFont.Name)
    MessageBox.Show("Name of minor font in current document theme: " _
                    + minorFont.Name)
End Sub

Remarks

Use the ApplyDocumentTheme method to apply a Microsoft Office theme to the document.

Applies to