Método FreeformBuilder.AddNodes (Excel)

Adiciona um ponto na forma atual e, em seguida, 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, este argumento especifica a distância horizontal (em pontos) do canto superior esquerdo do documento até ao ponto final do novo segmento. Se o EditingType do novo nó for msoEditingCorner, este argumento especifica a distância horizontal (em pontos) do canto superior esquerdo do documento para o primeiro ponto de controlo 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, este argumento especifica a distância horizontal (em pontos) do canto superior esquerdo do documento para o primeiro ponto de controlo do novo segmento.
X2	Opcional	Variant	Se o EditingType do novo segmento for msoEditingCorner, este argumento especifica a distância horizontal (em pontos) do canto superior esquerdo do documento para o segundo ponto de controlo do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para este argumento.
Y2	Opcional	Variant	Se o EditingType do novo segmento for msoEditingCorner, este argumento especifica a distância horizontal (em pontos) do canto superior esquerdo do documento para o segundo ponto de controlo do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para este argumento.
X3	Opcional	Variant	Se o EditingType do novo segmento for msoEditingCorner, este argumento especifica a distância horizontal (em pontos) do canto superior esquerdo do documento para o segundo ponto de controlo do novo segmento. Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para este argumento.
Y3	Opcional	Variant	Se o EditingType do novo segmento for msoEditingCorner, este argumento especifica a distância horizontal (em pontos) do canto superior esquerdo do documento para o segundo ponto de controlo 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 tem de 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.