Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Übernimmt die Formatierung der angegebenen Form als Standardformatierung für die Form.
Syntax
Ausdruck verwendet werden. SetShapesDefaultProperties
expression Eine Variable, die ein Shape-Objekt darstellt.
Beispiel
Dieses Beispiel fügt myDocument ein Rechteck hinzu, formatiert die Füllung des Rechtecks, legt die Formatierung des Rechtecks als Standardformatierung für Formen fest, und fügt dann ein weiteres kleineres Rechteck zum Dokument hinzu. 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.