Método FreeformBuilder.AddNodes (PowerPoint)

Artigo
04/07/2023

Insere um novo segmento no final da forma livre que está sendo criada e adiciona os nós que definem o segmento. 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.

Sintaxe

expressão. AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

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.

Exemplo

Este exemplo adiciona uma forma livre com cinco vértices ao primeiro slide na apresentação ativa.

Set myDocument = ActivePresentation.Slides(1) 
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200) 
    .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingCorner, _ 
        X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300 
    .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingAuto, _ 
        X1:=480, Y1:=200 
    .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
        X1:=480, Y1:=400 
    .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
        X1:=360, Y1:=200 
    .ConvertToShape 
End With

Confira também

Objeto FreeformBuilder

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.

Share via