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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de