CanvasShapes.BuildFreeform (Word)

Cria um objeto de forma livre. Retorna um objeto FreeformBuilder que representa a forma livre conforme ele está sendo construído.

Use o método AddNodes para adicionar segmentos à forma livre. Após adicionar pelo menos um segmento à forma livre, você poderá usar o método ConvertToShape para converter o objeto FreeformBuilder em um objeto Shape que tenha a descrição geométrica que você definiu no objeto FreeformBuilder .

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

O seguinte argumento é opcional

EditingType (Office.MsoEditingType) - O parâmetro EditingType pode ser msoEditingAuto ou msoEditingCorner; Não pode ser msoEditingSmooth ou msoEditingSymmetric.

X1 (Single) - A posição (em pontos) do primeiro nó do desenho de forma livre em relação à borda esquerda do documento.

Y1 (Single) - A posição (em pontos) do primeiro nó do desenho de forma livre em relação à borda esquerda do documento.