CanvasShapes.AddShape (Word)

Fügt einem Zeichenbereich eine AutoForm hinzu.

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

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

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

Arguments

Hier sind die benannte Argumente :

Type - Long

Left (Single) - Die in Punkt gemessene Position des linken Rands der AutoForm.

Top (Single) - Die in Punkt gemessene Position des oberen Rands der AutoForm.

Width (Single) - Die in Punkt gemessene Breite der AutoForm.

Height (Single) - Die in Punkt gemessene Höhe der AutoForm.