CanvasShapes.AddShape (Word)

Ajoute une forme automatique à une zone de dessin.

Pour modifier le type de forme automatique ajouté, définissez la propriété AutoShapeType.

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

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

Arguments

Les arguments nommés :

Type (Long) - Le type de forme à renvoyer.

Left (Single) - Position, exprimée en points, du bord gauche de la forme automatique.

Top (Single) - Position, exprimée en points, du bord supérieur de la forme automatique.

Width (Single) - Largeur, exprimée en points, de la forme automatique.

Height (Single) - Hauteur, exprimée en points, de la forme automatique.