PictureFormat.Recolor-Methode (Publisher)

Ändert die Farbe einer Grafik in einer Publikation.

Syntax

Ausdruck. Recolor (Color, LeaveBlackPartsBlack)

Ausdruck Eine Variable, die ein PictureFormat-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Color	Erforderlich	ColorFormat	Die Farbe, die für die Neueinfärbung verwendet werden soll.
LeaveBlackPartsBlack	Erforderlich	MsoTriState	True, Wenn alle Teile des Originalbilds, die Schwarz waren, Schwarz bleiben sollen.

Hinweise

Die Recolor-Methode entspricht den Optionen, die im Dialogfeld Bild neu einfärben(Menü>Formatbild>neu einfärben) verfügbar sind.

Beispiel

Der folgende Microsoft Visual Basic für Applikationen (VBA)-Makro veranschaulicht, wie mit der Recolor -Methode zum Ändern der Farbe einer Grafik. Es recolors die erste Form in der Shapes -Auflistung auf der ersten Seite der Publikation. Nach Ausführung des Codes, können Sie die Originalfarben wiederherstellen, mithilfe der RestoreOriginalColors -Methode.

Damit das Beispiel funktioniert, muss es sich bei der neu einzufärbenden Form entweder um eine Grafik oder um ein OLE-Objekt, das eine Grafik darstellt, handeln.

Public Sub Recolor_Example() 
 
 Dim pubPictureFormat As Publisher.PictureFormat 
 Dim pubShape As Publisher.Shape 
 Dim pubColorFormat As Publisher.ColorFormat 
 
 Set pubShape = ThisDocument.Pages(1).Shapes(1) 
 
 Set pubPictureFormat = pubShape.PictureFormat 
 Set pubColorFormat = pubShape.Fill.BackColor 
 
 pubPictureFormat.Recolor pubColorFormat, msoTrue 
 
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.