Método FreeformBuilder.AddNodes (Word)
Insere um novo segmento no final da forma livre que está sendo criada e adiciona os nós que definem o segmento.
Sintaxe
expressão. AddNodes (SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
expressão Obrigatório. Uma variável que representa um objeto 'FreeformBuilder'.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| SegmentType | Obrigatório | MsoSegmentType | O tipo de segmento a ser adicionado. |
| EditingType | Obrigatório | MsoEditingType | A propriedade de edição do vértice. Se SegmentType for msoSegmentLine, EditingType deve ser msoEditingAuto. |
| X1 | Obrigatório | Single | Se EditingType do novo segmento for msoEditingAuto, este argumento especificará a distância horizontal (em pontos) do canto superior esquerdo do documento ao ponto de extremidade do novo segmento. Se o EditingType do novo nó for msoEditingCorner, este argumento especificará a distância horizontal (em pontos) do canto superior esquerdo do documento até o primeiro ponto de controle do novo segmento. |
| Y1 | Obrigatório | Single | Se EditingType do novo segmento for msoEditingAuto, este argumento especificará a distância vertical (em pontos) do canto superior esquerdo do documento ao ponto de extremidade do novo segmento. Se o EditingType do novo nó for msoEditingCorner, este argumento especificará a distância vertical (em pontos) do canto superior esquerdo do documento até o primeiro ponto de controle do novo segmento. |
| X2 | Opcional | Single | Se o EditingType do novo segmento for msoEditingCorner, este argumento especificará a distância horizontal (em pontos) do canto superior esquerdo do documento até o segundo ponto de controle do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para este argumento. |
| Y2 | Opcional | Single | Se o EditingType do novo segmento for msoEditingCorner, este argumento especificará a distância vertical (em pontos) do canto superior esquerdo do documento até o segundo ponto de controle do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para este argumento. |
| X3 | Opcional | Single | Se EditingType do novo segmento for msoEditingCorner, este argumento especificará a distância horizontal (em pontos) do canto superior esquerdo do documento ao ponto de extremidade do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para este argumento. |
| Y3 | Opcional | Single | Se EditingType do novo segmento for msoEditingCorner, este argumento especificará a distância vertical (em pontos) do canto superior esquerdo do documento ao ponto de extremidade do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para este argumento. |
Comentários
Use esse método quantas vezes quiser adicionar nós à forma livre que você está criando. Quando terminar de adicionar nós, use o método ConvertToShape para criar a forma livre que você definiu. Para adicionar nós a uma forma livre após ele ter sido criado, use o método Insert da coleção ShapeNodes.
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.