Método BorderArtFormat.RevertToDefaultWeight (Publisher)

Define a borda artística na forma especificada novamente com a espessura padrão.

Sintaxe

expressão. RevertToDefaultWeight

Expressão Uma variável que representa um objeto BorderArtFormat .

Comentários

O método RevertToDefaultWeight tem o mesmo efeito que o always apply no controle de tamanho padrão na caixa de diálogo BorderArt .

Use a propriedade Weight para definir o BorderArt especificado como uma espessura diferente do padrão.

Exemplo

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.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.