AddShape Method

Adds an AutoShape to a drawing canvas. Returns a Shape object that represents the AutoShape and adds it to the CanvasShapes collection.

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

expression    Required. An expression that returns a CanvasShapes object.

Type   Required Long. The type of shape to be returned. Can be any MsoAutoShapeType 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.

Adds an AutoShape to a document. Returns a Shape object that represents the AutoShape and adds it to the Shapes collection.

expression.AddShape(Type, Left, Top, Width, Height, Anchor)

expression    Required. An expression that returns a Shapes object.

Type   Required Long. The type of shape to be returned. Can be any MsoAutoShapeType 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.

Anchor   Optional Variant. A Range object that represents the text to which the AutoShape is bound. If Anchor is specified, the anchor is positioned at the beginning of the first paragraph in the anchoring range. If this argument is omitted, the anchoring range is selected automatically and the AutoShape is positioned relative to the top and left edges of the page.

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
				

This example adds a red rectangle to a new document.

Sub NewShape()
    Dim docNew As Document

    'Create a new document and adds a shape
    Set docNew = Documents.Add
    docNew.Shapes.AddShape Type:=msoShapeRectangle, _
        Left:=50, Top:=50, Width:=100, Height:=200

    'Format the shape
    docNew.Shapes(1).Fill.ForeColor _
        .RGB = RGB(Red:=200, Green:=15, Blue:=95)
End Sub