CanvasShapes.AddShape-Methode (Word)

Artikel
10/16/2024

Fügt einem Zeichenbereich eine AutoForm hinzu. Gibt ein Shape-Objekt zurück, das die AutoForm darstellt.

Syntax

Ausdruck. AddShape( _Type_ , _Left_ , _Top_ , _Width_ , _Height_ )

expression Erforderlich. Eine Variable, die ein CanvasShapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Typ	Erforderlich	Long	Der Typ der zurückzugebenden Form. Dies kann eine beliebige MsoAutoShape-Konstante sein.
Left	Erforderlich	Single	Die in Punkt gemessene Position des linken Rands der AutoForm.
Top	Erforderlich	Single	Die in Punkt gemessene Position des oberen Rands der AutoForm.
Width	Erforderlich	Single	Die in Punkt gemessene Breite der AutoForm.
Height	Erforderlich	Single	Die in Punkt gemessene Höhe der AutoForm.

Hinweise

Um den Typ einer AutoForm zu ändern, die Sie hinzugefügt haben, legen Sie die AutoShapeType-Eigenschaft fest.

Beispiel

In diesem Beispiel wird im aktiven Dokument ein neuer Zeichenbereich erstellt und diesem ein Kreis hinzugefügt.

Sub NewCanvasShape() 
 Dim shpCanvas As Shape 
 Dim shpCanvasShape As Shape 
 
 'Add a new drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas( _ 
 Left:=100, Top:=75, Width:=150, Height:=200) 
 
 'Add a circle to the drawing canvas 
 Set shpCanvasShape = shpCanvas.CanvasItems.AddShape( _ 
 Type:=msoShapeOval, Left:=25, Top:=25, _ 
 Width:=150, Height:=150) 
End Sub

Siehe auch

CanvasShapes-Auflistungsobjekt

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.

Freigeben über