ShapeRange.SetShapesDefaultProperties-Methode (Publisher)

Wendet die Formatierung der angegebenen Form oder des angegebenen Formenbereichs auf die Standardform an. Bei Shapes, die nach der Verwendung dieser Methode erstellt wurden, wird diese Formatierung standardmäßig auf sie angewendet.

Syntax

Ausdruck. SetShapesDefaultProperties

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Rückgabewert

Nichts

Bemerkungen

Die SetShapesDefaultProperties-Methode speichert zwei verschiedene Sätze von Standardeigenschaften, einen für die AutoShapeType-Eigenschaft eines Shape-Objekts und einen anderen für ein TextFrame-Objekt.

Mit anderen Worten, wenn diese Methode für eine AutoForm aufgerufen wird, die Standard-Formatierung dieses Objekts gelten nur für neue AutoFormen und gilt nicht für neue Textfelder. Wird diese Methode für ein Textfeld aufgerufen, wird die Standardformatierung für dieses Objekt nur auf neue Textfelder, jedoch nicht auf neue AutoFormen, angewendet.

Beispiel

Dieses Beispiel fügt ein Rechteck zur aktiven Publikation hinzu, formatiert die Füllung des Rechtecks, wendet die Formatierung des Rechtecks auf die Standardform an und fügt dann ein weiteres kleineres Rechteck zu dem Dokument hinzu. Das zweite Rechteck weist dieselbe Füllung auf wie das erste.

With ActiveDocument.Pages(1).Shapes 
 
 With .AddShape(Type:=msoShapeRectangle, _ 
 Left:=5, Top:=5, Width:=80, Height:=60) 
 With .Fill 
 .ForeColor.RGB = RGB(0, 0, 255) 
 .BackColor.RGB = RGB(0, 204, 255) 
 .Patterned Pattern:=msoPatternHorizontalBrick 
 End With 
 .SetShapesDefaultProperties 
 End With 
 
 .AddShape Type:=msoShapeRectangle, _ 
 Left:=90, Top:=90, Width:=40, Height:=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.