Table of contents
TOC
Recolher sumário
Expandir sumário

Método BorderArtFormat.RevertToDefaultWeight (Editor)BorderArtFormat.RevertToDefaultWeight Method (Publisher)

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

Define a borda artística na forma especificada novamente com a espessura padrão.Sets the BorderArt on the specified shape back to its default thickness.

SintaxeSyntax

expressão. RevertToDefaultWeightexpression. RevertToDefaultWeight

_expression_A variável que representa um objeto BorderArtFormat ._expression_A variable that represents a BorderArtFormat object.

ComentáriosRemarks

O método RevertToDefaultWeight tem o mesmo efeito que o controle Aplicar sempre no tamanho padrão na caixa de diálogo bordas artísticas .The RevertToDefaultWeight method has the same effect as the Always apply at default size control on the BorderArt dialog box.

Use a propriedade Weight do objeto BorderArtFormat para definir a borda artística especificada com uma espessura diferente da padrão.Use the Weight property of the BorderArtFormat object to set the specified BorderArt to a thickness other than the default.

ExemploExample

O exemplo a seguir testa a existência de bordas artísticas em cada forma de cada página do documento ativo. Se a borda artística existir, será definida com a espessura padrão e a cor original.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

Ver tambémSee also

ConceitosConcepts

Objeto BorderArtFormatBorderArtFormat Object

© 2018 Microsoft