Shape.CanvasItems (Word)

Returns a CanvasShapes object that represents a collection of shapes in a drawing canvas.

Sub NewCanvasShape() 
 Dim shpCanvas As Shape 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas( _ 
 Left:=100, Top:=75, Width:=150, Height:=200) 
 shpCanvas.CanvasItems.AddShape _ 
 Type:=msoShapeOval, Top:=25, _ 
 Left:=25, Width:=150, Height:=150 
End Sub