CanvasShapes.BuildFreeform (Word)

Genera un objeto de forma libre.

Utilice el método AddNodes para agregar segmentos a la forma 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

Estos son los argumentos con nombre :

EditingType (Office.MsoEditingType) - El parámetro EditingType puede ser msoEditingAuto o msoEditingCorner; no puede ser msoEditingSmooth ni msoEditingSymmetric.

X1 - Single

Y1 - Single