ShapeRange.SetShapesDefaultProperties-Methode (PowerPoint)

Übernimmt das Format der angegebenen Form für die Standardform. Für Formen, die erstellt werden, nachdem diese Methode verwendet wurde, wird dieses Format standardmäßig übernommen.

Syntax

Ausdruck. SetShapesDefaultProperties

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Beispiel

In diesem Beispiel wird myDocument ein Rechteck hinzugefügt, die Füllung des Rechtecks formatiert, die Formatierung des Rechtecks auf die Standardform angewendet und dann dem Dokument ein weiteres kleineres Rechteck hinzugefügt. Das zweite Rechteck weist dieselbe Füllung auf wie das erste.

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

Siehe auch

ShapeRange-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.