DocumentBase.DocumentTheme Property
Definition
Important
Some information relates to prerelease product that may be substantially modified before it’s released. Microsoft makes no warranties, express or implied, with respect to the information provided here.
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.