Método ShapeNodes.Insert (PowerPoint)

Insere um novo segmento após o nó especificado da forma livre.

Sintaxe

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

Expressão Uma variável que representa um objeto ShapeNodes .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Índice	Obrigatório	Long	O nó após o qual será inserido o novo nó.
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 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

O valor do parâmetro SegmentType pode ser uma dessas constantes MsoSegmentType .

msoSegmentCurve
msoSegmentLine

O valor do parâmetro EditingType pode ser uma dessas constantes MsoEditingType .

msoEditingAuto
msoEditingCorner

Exemplo

Este exemplo adiciona um nó suave a um segmento curvo após o nó quatro na forma três em myDocument. A forma três deve ser um desenho de forma livre com pelo menos quatro nós.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3).Nodes
    .Insert Index:=4, SegmentType:=msoSegmentCurve, _
        EditingType:=msoEditingSmooth, X1:=210, Y1:=100
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.