Compartilhar via


Método ShapeRange.SetShapesDefaultProperties (Excel)

Define a formatação da forma especificada como padrão para a mesma.

Sintaxe

expressão. SetShapesDefaultProperties

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

Exemplo

Este exemplo adiciona um retângulo a myDocument, formata seu preenchimento, define a formatação do retângulo como a formatação de forma padrão e adiciona outro retângulo menor ao documento. O segundo retângulo tem o mesmo preenchimento do primeiro.

Set myDocument = Worksheets(1) 
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 
 ' Set formatting as default formatting 
 .SetShapesDefaultProperties 
 End With 
 ' Create new shape with default formatting 
 .AddShape msoShapeRectangle, 90, 90, 40, 30 
End With

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.