Compartir a través de

Método ShapeRange.SetShapesDefaultProperties (PowerPoint)

  • Artículo

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

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

Consulte también

Objeto ShapeRange

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.