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.