Compartilhar via

Método BorderArtFormat.RevertToOriginalColor (Publisher)

  • Artigo

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

Sintaxe

expressão. RevertToOriginalColor

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

Comentários

O método RevertToOriginalColor tem o mesmo efeito que a seleção Padrão no controle Color na caixa de diálogo Forma> de Formato<.

Use a propriedade Color para definir o BorderArt como uma cor diferente da cor original.

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.