Share via

BorderArtFormat.RevertToOriginalColor Method

  • Article
Publisher Developer Reference

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 on the Format <Shape> dialog box.

Use the Color property of the BorderArtFormat object 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.

Visual Basic for Applications 
  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

See Also