CanvasShapes.AddShape method (Word)

Adds an AutoShape to a drawing canvas. Returns a Shape object that represents the AutoShape.

Syntax

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

expression Required. A variable that represents a CanvasShapes object.

Parameters

Name Required/Optional Data type Description
Type Required Long The type of shape to be returned. Can be any MsoAutoShape constant.
Left Required Single The position, measured in points, of the left edge of the AutoShape.
Top Required Single The position, measured in points, of the top edge of the AutoShape.
Width Required Single The width, measured in points, of the AutoShape.
Height Required Single The height, measured in points, of the AutoShape.

Remarks

To change the type of an AutoShape that you've added, set the AutoShapeType property.

Example

This example creates a new canvas in the active document and adds a circle to the canvas.

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

See also

CanvasShapes Collection

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.