Shape.CanvasItems (Word)

Devuelve un objeto CanvasShapes que representa una colección de formas en un lienzo de dibujo.

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