Compartilhar via


Método ShapeRange.SetShapesDefaultProperties (PowerPoint)

Aplica a formatação forma padrão à forma especificada. As formas criadas após a utilização desse método terão essa formatação aplicada a elas como padrão.

Sintaxe

expressão. SetShapesDefaultProperties

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

Exemplo

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

Set mydocument = ActivePresentation.Slides(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

    ' 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 ShapeRange

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.