Shape.CanvasItems (Word)

Renvoie un objet CanvasShapes qui représente une collection de formes dans une zone de dessin.

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