ColorScheme-Objekt (Publisher)
Stellt ein Farbschema dar, das aus einer Gruppe aus acht Farben besteht, die für die verschiedenen Elemente einer Publikation verwendet werden. Jede Farbe wird durch ein ColorFormat-Objekt dargestellt.
Das ColorScheme -Objekt ist ein Element der ColorSchemes -Auflistung. Die ColorSchemes-Auflistung enthält alle in Microsoft Publisher verfügbaren Farbschemas.
Hinweise
Verwenden Sie die ColorScheme-Eigenschaft des Document-Objekts , um das Farbschema für die aktuelle Publikation zurückzugeben.
Verwenden Sie den Namen -Eigenschaft auf den Namen eines Farbschemas zurückzugeben.
Beispiel
Im folgende Beispiel wird den Füllung Wert der drei Formen auf der ersten Seite auf den Rückgabewert (in RGB-Format) von drei der acht ColorScheme -Farben.
Sub ReturnColorsAndApplyToShapes()
Dim lngAccent1 As Long
Dim lngAccent2 As Long
Dim lngAccent3 As Long
With ActiveDocument
With .ColorScheme
lngAccent1 = .Colors(pbSchemeColorAccent1).RGB
lngAccent2 = .Colors(pbSchemeColorAccent2).RGB
lngAccent3 = .Colors(pbSchemeColorAccent3).RGB
End With
With .Pages(1)
.Shapes(1).Fill.ForeColor.RGB = lngAccent1
.Shapes(2).Fill.ForeColor.RGB = lngAccent2
.Shapes(3).Fill.ForeColor.RGB = lngAccent3
End With
End With
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.