Shapes.AddShape-Methode (Publisher)

Fügt der angegebenen Shapes-Auflistung ein neues Shape-Objekt hinzu, das eine AutoForm darstellt.

Syntax

Ausdruck. AddShape (Type, Left, Top, Width, Height)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Typ	Erforderlich	MsoAutoShapeType	Der Typ der AutoForm, die gezeichnet werden soll.
Left	Erforderlich	Variant	Die Position der linken Begrenzung der Form, die die AutoForm darstellt.
Top	Erforderlich	Variant	Die Position der oberen Begrenzung der Form, die die AutoForm darstellt.
Width	Erforderlich	Variant	Die Breite der Form, die die AutoForm darstellt.
Height	Erforderlich	Variant	Die Höhe der Form, die die AutoForm darstellt.

Rückgabewert

Form

Bemerkungen

Für die Argumente Left, Top, Width und Height werden numerische Werte in Punkt ausgewertet. Zeichenfolgen können in beliebigen Einheiten enthalten sein, die von Microsoft Publisher unterstützt werden (z. B. "2,5 zoll").

Beispiel

Das folgende Beispiel fügt der ersten Seite der aktiven Publikation ein Rechteck hinzu.

Dim shpShape As Shape 
 
Set shpShape = ActiveDocument.Pages(1).Shapes.AddShape _ 
 (Type:=msoShapeRectangle, _ 
 Left:=144, Top:=144, _ 
 Width:=72, Height:=144) 

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.