Share via

RevertToDefaultWeight Method [Publisher 2003 VBA Language Reference]

  • Article

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

expression.RevertToDefaultWeight()

expression Required. An expression that returns a BorderArtFormat object.

Remarks

The RevertToDefaultWeight method has the same effect as the Always apply at default size control on the BorderArt dialog box.

Use the Weight property of the BorderArtFormat object to set the specified BorderArt to a thickness other than the default.

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

Applies to | BorderArtFormat Object