Método Shapes.BuildFreeform (Word)

  • Artigo

Cria um objeto de forma livre.

Sintaxe

expression. BuildFreeform( _EditingType_ , _X1_ , _Y1_ )

expressão Obrigatório. Uma variável que representa um objeto Shapes .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
EditingType Obrigatório MsoEditingType A propriedade de edição do primeiro nó.
X1 Obrigatório Single A posição (em pontos) do primeiro nó do desenho de forma livre em relação à borda esquerda do documento.
Y1 Obrigatório Single A posição (em pontos) do primeiro nó do desenho de forma livre em relação à borda superior do documento.

Valor de retorno

FreeformBuilder

Comentários

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.

Exemplo

Este exemplo adiciona uma forma livre com cinco vértices ao documento ativo.

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

Confira também

Objeto da coleção Shapes

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.