ColorScheme-Objekt (Publisher)

  • Artikel

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.

HinwBemerkungeneise

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.