Shapes.BuildFreeform (Word)
Cria um objeto de forma livre.
Use o método AddNodes para adicionar segmentos à forma livre. Após ter adicionado pelo menos um segmento à forma livre, você pode 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
Arguments
O seguinte argumento é opcional
EditingType (Office.MsoEditingType) - A propriedade de edição do primeiro nó.
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 superior do documento.