Shape.SetShapesDefaultProperties-Methode (Word)
Weist die Formatierung der Standardform für ein Dokument der angegebenen Form zu.
Ausdruck. SetShapesDefaultProperties
expression Erforderlich. Eine Variable, die ein Shape-Objekt darstellt.
Neue Formen erben viele Attribute von der Standardform.
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
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.