Partager via


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

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

Concepts

CanvasShapes Object Members

CanvasShapes Collection