Поделиться через

Метод ShapeRange.SetShapesDefaultProperties (PowerPoint)

  • Статья

Применяет форматирование для указанной фигуры к фигуре по умолчанию. К фигурам, созданным после использования этого метода, будет применено это форматирование по умолчанию.

Синтаксис

expression. SetShapesDefaultProperties

Выражение Переменная, представляющая объект ShapeRange .

Пример

В этом примере в myDocument добавляется прямоугольник, форматирует заливку прямоугольника, применяет форматирование прямоугольника к фигуре по умолчанию, а затем добавляется еще один меньший прямоугольник в документ. Второй прямоугольник имеет ту же заливку, что и первый.

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

См. также

Объект ShapeRange

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.