Freigeben über


BorderArtFormat.RevertToOriginalColor-Methode (Publisher)

Setzt den Zierrahmen der angegebenen Form auf die Standardfarbe zurück.

Syntax

Ausdruck. RevertToOriginalColor

Ausdruck Eine Variable, die ein BorderArtFormat-Objekt darstellt.

Hinweise

Die RevertToOriginalColor-Methode hat die gleiche Auswirkung wie die Standardauswahl für das Steuerelement Farbe im Dialogfeld Form> formatieren<.

Verwenden Sie die Color-Eigenschaft , um das BorderArt-Objekt auf eine andere Farbe als die ursprüngliche Farbe festzulegen.

Beispiel

Das folgende Beispiel prüft das Vorhandensein von Zierrahmen für jede Form auf jeder Seite des aktiven Dokuments. Wenn ein Zierrahmen vorhanden ist, wird er auf die Standardstärke und Originalfarbe festgelegt.

Sub RestoreBorderArtDefaults() 
 
Dim anyPage As Page 
Dim anyShape As Shape 
 
For Each anyPage in ActiveDocument.Pages 
 For Each anyShape in anyPage.Shapes 
 With anyShape.BorderArt 
 If .Exists = True Then 
 .RevertToDefaultWeight 
 .RevertToOriginalColor 
 End If 
 End With 
 Next anyShape 
Next anyPage 
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.