CanvasShapes.BuildFreeform (Word)

Crée une forme libre.

Utilisez la méthode AddNodes pour ajouter des segments à la forme libre.

BuildFreeform (EditingType, X1, Y1)

Dim docActive As Document 
 
Set docActive = ActiveDocument 
With docActive.Shapes.BuildFreeform(msoEditingCorner, 360, 200) 
 .AddNodes msoSegmentCurve, msoEditingCorner, _ 
 380, 230, 400, 250, 450, 300 
 .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200 
 .AddNodes msoSegmentLine, msoEditingAuto, 480, 400 
 .AddNodes msoSegmentLine, msoEditingAuto, 360, 200 
 .ConvertToShape 
End With

Arguments

Les arguments nommés :

EditingType (Office.MsoEditingType) - Le paramètre EditingType peut être msoEditingAuto ou msoEditingCorner; ne peut pas être msoEditingSmooth ou msoEditingSymmetric.

X1 (Single) - Position (en points) du premier nœud dans la forme libre par rapport au bord gauche du document.

Y1 (Single) - Position (en points) du premier nœud dans la forme libre par rapport au bord supérieur du document.