Método CanvasShapes.BuildFreeform (Word)
Cria um objeto de forma livre. Retorna um objeto FreeformBuilder que representa a forma livre durante sua criação. .
Sintaxe
expression. BuildFreeform( _EditingType_ , _X1_ , _Y1_ )
expressão Obrigatório. Uma variável que representa um objeto 'CanvasShapes'.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| EditingType | Obrigatório | MsoEditingType | O parâmetro EditingType pode ser msoEditingAuto ou msoEditingCorner; ele não pode ser msoEditingSmooth ou msoEditingSymmetric. |
| 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 esquerda do documento. |
Comentários
Use o método AddNodes para adicionar segmentos à forma livre. Depois de adicionar 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 definida 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.