Método Shape.SetShapesDefaultProperties (Word)

Aplica a formatação da forma padrão de um documento a uma forma especificada.

Sintaxe

expressão. SetShapesDefaultProperties

expressão Obrigatório. Uma variável que representa um objeto Shape.

Comentários

As novas formas herdam muitos dos atributos da forma padrão.

Exemplo

Este exemplo adiciona um retângulo ao myDocument , formata o preenchimento do retângulo, aplica a formatação do retângulo à forma padrão e adiciona outro retângulo (menor) ao documento. O segundo retângulo tem o mesmo preenchimento do primeiro.

Set mydocument = ActiveDocument 
With mydocument.Shapes 
 With .AddShape(msoShapeRectangle, 5, 5, 80, 60) 
 With .Fill 
 .ForeColor.RGB = RGB(0, 0, 255) 
 .BackColor.RGB = RGB(0, 204, 255) 
 .Patterned msoPatternHorizontalBrick 
 End With 
 ' Sets formatting for default shapes 
 .SetShapesDefaultProperties 
 End With 
 ' New shape has default formatting 
 .AddShape msoShapeRectangle, 90, 90, 40, 30 
End With

Confira também

Objeto Shape

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.