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. SetShapesDefaultProperties
expression Erforderlich. Eine Variable, die ein Shape-Objekt darstellt.
Hinweise
Neue Formen erben viele Attribute von der Standardform.
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 = 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.