ShapeRange.SetShapesDefaultProperties メソッド (PowerPoint)

指定した図形の書式設定を既定の図形に適用します。 このメソッドを使用した後に作成される図形には、既定でこの書式設定が適用されます。

構文

式。SetShapesDefaultProperties

式ShapeRange オブジェクトを表す変数。

例

次の使用例は、myDocument に四角形を追加し、その四角形に塗りつぶしを書式設定し、その書式設定を図形の既定値に適用し、スライドに別の小さい四角形を追加します。 2 番目に作成した四角形の塗りつぶしは最初の四角形と同じです。

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 のサポートおよびフィードバックを参照してください。