Compartilhar via

ShapeNodes.Insert method (PowerPoint) (Método ShapeNodes.Insert [PowerPoint])

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

Sintaxe

expressão. Inserir (Índice, 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 destas constantes msoSegmentType .
msoSegmentCurve
msoSegmentLine

O valor do parâmetro EditingType pode ser uma destas 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.

  • Last updated on