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