ShapeRange.SetShapesDefaultProperties-Methode (Excel)

Übernimmt die Formatierung der angegebenen Form als Standardformatierung für die Form.

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 als Standardformatierung der Form festgelegt und dann dem Dokument ein weiteres kleineres Rechteck hinzugefügt. Das zweite Rechteck weist dieselbe Füllung auf wie das erste.

Set myDocument = Worksheets(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 
 ' Set formatting as default formatting 
 .SetShapesDefaultProperties 
 End With 
 ' Create new shape with default formatting 
 .AddShape msoShapeRectangle, 90, 90, 40, 30 
End With

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.