PictureFormat.RestoreOriginalColors-Methode (Publisher)

Stellt die Originalfarben einer Grafik wieder her, die neu eingefärbt wurde.

Syntax

Ausdruck. RestoreOriginalColors

Ausdruck Eine Variable, die ein PictureFormat-Objekt darstellt.

Hinweise

Die RestoreOriginalColors-Methode entspricht der Schaltfläche Originalfarben wiederherstellen im Dialogfeld Bild neu einfärben (Menü>Formatbild>Neu einfärben).

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie die RestoreOriginalColors-Methode verwendet wird, um die originalen Farben eines Bilds wiederherzustellen, das mit der Recolor-Methode neu eingefärbt wurde. Die erste Form in der Shapes -Auflistung auf der ersten Seite der Publikation recolors, und klicken Sie dann die stellt die Originalfarben wieder her.

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

Public Sub RestoreOriginalColors_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 
 MsgBox "Picture was recolored." 
 pubPictureFormat.RestoreOriginalColors 
 MsgBox "Original colors in picture were restored." 
 
 
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.