BorderArtFormat.RevertToOriginalColor method (Publisher)

Sets the BorderArt on the specified shape back to its default color.

Syntax

expression.RevertToOriginalColor

expression A variable that represents a BorderArtFormat object.

Remarks

The RevertToOriginalColor method has the same effect as the Default selection on the Color control in the Format <Shape> dialog box.

Use the Color property to set the BorderArt to a color other than the original color.

Example

The following example tests for the existence of BorderArt on each shape for each page of the active document. If BorderArt exists, its weight is set to the default thickness and original color.

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 and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.