Método Shapes.BuildFreeform (Word)
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
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
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.