MsoThemeColorSchemeIndex-Aufzählung (Office)

Gibt das Farbschema für ein Office-Design an.

Name	Wert	Beschreibung
msoThemeAccent1	5	Specifies color scheme Accent 1.
msoThemeAccent2	6	Specifies color scheme Accent 2.
msoThemeAccent3	7	Specifies color scheme Accent 3.
msoThemeAccent4	8	Specifies color scheme Accent 4.
msoThemeAccent5	9	Specifies color scheme Accent 5.
msoThemeAccent6	10	Specifies color scheme Accent 6.
msoThemeDark1	1	Specifies color scheme Dark 1.
msoThemeDark2	3	Specifies color scheme Dark 2.
msoThemeFollowedHyperlink	12	Gibt ein Farbschema für einen besuchten Hyperlink an.
msoThemeHyperlink	11	Gibt ein Farbschema für einen Hyperlink an.
msoThemeLight1	2	Specifies color scheme Light 1.
msoThemeLight2	4	Specifies color scheme Light 2.

Hinweise

Ein Office Theme.ThemeColorShceme besteht aus zwei hellen Farben, zwei dunklen Farben, sechs Akzentfarben und zwei Farben für textverknlinkten Text. Verwenden Sie diese Enumeration, um die Farben für das angegebene Design festzulegen oder zurückzugeben. Wenn Designfarben dem ColorFormat-Objekt für eine Form zugewiesen werden, werden sie über die MsoThemeColorIndex-Enumeration zugeordnet. Bei PowerPoint berücksichtigt diese Zuordnung, ob das Objekt auf einer hellen oder dunklen Hintergrundformatvorlage für die Folie vorhanden ist. Es gibt zwölf Hintergrundstile, sechs hell und sechs dunkel. Bei einer hellen Hintergrundformatvorlage wird ein Objekt, das msoThemeColorBackground1 verwendet, der Farbe Dark 1 aus dem Design zugewiesen. Für dasselbe Objekt in einer der dunklen Hintergrundstile wird die Farbe Light 1 für dieselbe msoThemeColorBackground1-Zuweisung verwendet.

Beim programmgesteuerten Zuweisen einer Designfarbe zu einem Objekt sollte die MsoThemeColorIndex-Enumeration verwendet werden, insbesondere die Werte 13 bis 16 für die ersten vier Farben des Designs. Wenn die Werte 1 bis 4 verwendet werden, wird die Designfarbe von der Benutzeroberfläche der Office-Farbauswahl nicht richtig hervorgehoben.

Beispiel

Im folgenden Beispiel werden die hex-Farbwerte im BGR-Format für die zwölf Farben im Design der ersten Folie master in der aktiven Präsentation in der Reihenfolge ausgegeben, in der sie auf der Office-Design-Editor-Benutzeroberfläche angezeigt werden.

Sub ShowThemeColors()
    With ActivePresentation.Designs(1).SlideMaster.Theme
        Debug.Print Hex(.ThemeColorScheme(msoThemeLight1).RGB)  ' 2
        Debug.Print Hex(.ThemeColorScheme(msoThemeDark1).RGB)   ' 1
        Debug.Print Hex(.ThemeColorScheme(msoThemeLight2).RGB)  ' 4
        Debug.Print Hex(.ThemeColorScheme(msoThemeDark2).RGB)   ' 3
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent1).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent2).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent3).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent4).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent5).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeHyperlink).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeAccent6).RGB)
        Debug.Print Hex(.ThemeColorScheme(msoThemeFollowedHyperlink).RGB)
    End With
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.