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.
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.