Freigeben über


ColorSchemes-Objekt (Publisher)

Eine Auflistung aller ColorScheme Objekte in Microsoft Publisher. Jedes ColorScheme -Objekt stellt ein Farbschema, also eine Reihe von Farben, die in einer Publikation verwendet werden.

Hinweise

Verwenden Sie die Count -Eigenschaft, um die Anzahl der verfügbaren Farbschemas zu Publisher zurückzukehren.

Verwenden Sie die Item -Eigenschaft, um ein bestimmtes Farbschema aus der ColorSchemes -Auflistung zurückzugeben. Das Index-Argument der Item-Eigenschaft kann die Nummer oder der Name des Farbschemas oder eine PbColorScheme-Konstante sein.

Verwenden Sie den Namen -Eigenschaft auf den Namen eines Farbschemas zurückzugeben.

Beispiel

Im folgenden Beispiel wird die Anzahl der Farbschemas angezeigt.

Sub CountColorSchemes() 
 MsgBox Application.ColorSchemes.Count 
End Sub

Das folgende Beispiel legt das Farbschema der aktiven Publikation auf Wildblume fest.

Sub SetColorScheme() 
 ActiveDocument.ColorScheme _ 
 = ColorSchemes.Item(pbColorSchemeWildflower) 
End Sub

Das folgende Beispiel listet alle in Publisher verfügbaren Farbschemas in einem Textfeld.

Sub ListColorShemes() 
 
 Dim clrScheme As ColorScheme 
 Dim strSchemes As String 
 
 For Each clrScheme In Application.ColorSchemes 
 strSchemes = strSchemes & clrScheme.Name & vbLf 
 Next 
 ActiveDocument.Pages(1).Shapes.AddTextbox( _ 
 Orientation:=pbTextOrientationHorizontal, _ 
 Left:=72, Top:=72, Width:=400, Height:=500).TextFrame _ 
 .TextRange.Text = strSchemes 
 
End Sub

Eigenschaften

Siehe auch

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.