CanvasShapes.AddShape (Word)

Agrega una autoforma a un lienzo de dibujo.

Para cambiar el tipo de una autoforma que ha agregado, establezca la propiedad AutoShapeType.

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

Estos son los argumentos con nombre :

Type (Long) - El tipo de forma que se va a devolver.

Left (Single) - La posición, medida en puntos, del borde izquierdo de la autoforma.

Top (Single) - La posición, medida en puntos, del borde superior de la autoforma.

Width (Single) - El ancho, medido en puntos, de la autoforma.

Height (Single) - El alto, medido en puntos, de la autoforma.