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 verwendet werden. SetShapesDefaultProperties

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Beispiel

Dieses Beispiel fügt myDocument ein Rechteck hinzu, formatiert die Füllung des Rechtecks, wendet die Formatierung des Rechtecks auf die Standardform an und fügt dann ein weiteres kleineres Rechteck zum Dokument hinzu. 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.