Método Shape.SetShapesDefaultProperties (PowerPoint)

Aplica el formato de la forma especificada a la forma predeterminada. Las formas creadas con este método tendrán aplicado este formato de manera predeterminada.

Sintaxis

expresión. SetShapesDefaultProperties

expresión Variable que representa un objeto Shape.

Ejemplo

Este ejemplo agrega un rectángulo a myDocument, da formato al relleno del rectángulo, aplica el formato del rectángulo a la forma predeterminada y, a continuación, agrega otro rectángulo más pequeño al documento. El segundo rectángulo tiene el mismo relleno que el primero.

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

Vea también

Objeto Shape

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.