WorkbookBase.Theme Proprietà

Definizione

Spazio dei nomi:

Microsoft.Office.Tools.Excel

Assembly:

Microsoft.Office.Tools.Excel.v4.0.Utilities.dll

Ottiene il tema applicato alla cartella di lavoro.

public:
 property Microsoft::Office::Core::OfficeTheme ^ Theme { Microsoft::Office::Core::OfficeTheme ^ get(); };

public Microsoft.Office.Core.OfficeTheme Theme { get; }

member this.Theme : Microsoft.Office.Core.OfficeTheme

Public ReadOnly Property Theme As OfficeTheme

Valore della proprietà

OfficeTheme

Microsoft.Office.Core.OfficeTheme che rappresenta il tema applicato alla cartella di lavoro.

Esempio

Nell'esempio di codice seguente viene recuperato il tema della cartella di lavoro corrente. Nell'esempio vengono quindi visualizzati i nomi del tipo di carattere principale e del tipo di carattere secondario trovati nello schema di carattere del tema della cartella di lavoro.

Questo esempio è relativo a una personalizzazione a livello di documento.

private void GetDocumentTheme()
{
    Office.OfficeTheme theme = this.Theme;
    Office.ThemeFontScheme fontScheme = theme.ThemeFontScheme;
    Office.ThemeFont majorFont = fontScheme.MajorFont.Item(
        Microsoft.Office.Core.MsoFontLanguageIndex.msoThemeLatin);
    Office.ThemeFont minorFont = 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);
}

Private Sub GetDocumentTheme()
    Dim theme As Office.OfficeTheme = Me.Theme
    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