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.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for