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.
Weist die Formatierung der Standardform für ein Dokument der angegebenen Form zu.
Syntax
Ausdruck verwendet werden. SetShapesDefaultProperties
expression Erforderlich. Eine Variable, die ein Shape-Objekt darstellt.
Hinweise
Neue Formen erben viele Attribute von der Standardform.
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 = ActiveDocument
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
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.