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
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.