Método FreeformBuilder.AddNodes (Excel)
Adiciona um ponto na forma atual e desenha uma linha do nó atual para o último nó que foi adicionado.
Sintaxe
expressão. AddNodes (SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
Expressão 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. |
| X1 | Obrigatório | Single | Se o EditingType do novo segmento for msoEditingAuto, esse argumento especificará a distância horizontal (em pontos) do canto superior esquerdo do documento até o ponto final do novo segmento. Se o EditingType do novo nó for msoEditingCorner, esse 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 o EditingType do novo segmento for msoEditingAuto, este argumento especificará a distância horizontal (em pontos) a partir do canto superior esquerdo do documento até o ponto final do novo segmento. Se o EditingType do novo nó for msoEditingCorner, esse argumento especificará a distância horizontal (em pontos) do canto superior esquerdo do documento até o primeiro ponto de controle do novo segmento. |
| X2 | Opcional | Variantes | Se o EditingType do novo segmento for msoEditingCorner, esse 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 esse argumento. |
| Y2 | Opcional | Variantes | Se o EditingType do novo segmento for msoEditingCorner, esse 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 esse argumento. |
| X3 | Opcional | Variantes | Se o EditingType do novo segmento for msoEditingCorner, esse 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 esse argumento. |
| Y3 | Opcional | Variantes | Se o EditingType do novo segmento for msoEditingCorner, esse 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 esse argumento. |
Comentários
MsoEditingType não pode ser msoEditingSmooth ou msoEditingSymmetric. Se SegmentType for msoSegmentLine, EditingType deverá ser msoEditingAuto.
Exemplo
Este exemplo adiciona uma forma livre com quatro segmentos a myDocument.
Set myDocument = Worksheets(1)
With myDocument.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
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.