Método ShapeNodes.Insert (Excel)

Insere um nó em uma forma livre.

Sintaxe

expressão. Insert (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 Integer Longo. O número do nó da forma após do qual será inserido um novo nó.
SegmentType Obrigatório MsoSegmentType O tipo de segmento.
EditingType Obrigatório MsoEditingType O tipo de edição.
X1 Obrigatório Single Se o EditingType do novo segmento for msoEditingAuto, esse argumento especificará a distância horizontal, medida em pontos,do canto superior esquerdo do documento até o ponto final do novo segmento.

Se o EditingType do novo nó for msoEditingCorner, esse argumento especificará a distância horizontal, medida em pontos, do canto superior esquerdo do documento até o primeiro ponto de controle do novo segmento.
Y1 Obrigatório Single Se o EditingType do novo segmento for msoEditingAuto, este argumento especificará a distância vertical, medida em pontos, a partir do canto superior esquerdo do documento até o ponto final para o novo segmento.

Se o EditingType do novo nó for msoEditingCorner, esse argumento especificará a distância vertical, medida em pontos, do canto superior esquerdo do documento até o primeiro ponto de controle do novo segmento.
X2 Obrigatório Single Se o EditingType do novo segmento for msoEditingCorner, este argumento especificará a distância horizontal, medida 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 esse argumento.
Y2 Obrigatório Single Se o EditingType do novo segmento for msoEditingCorner, este argumento especificará a distância vertical, medida 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 esse argumento.
X3 Obrigatório Single Se o EditingType do novo segmento for msoEditingCorner, este argumento especificará a distância horizontal, medida em pontos, a partir do canto superior esquerdo do documento até o ponto final do novo segmento.

Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para esse argumento.
Y3 Obrigatório Single Se o EditingType do novo segmento for msoEditingCorner, este argumento especificará a distância vertical, medida em pontos, a partir do canto superior esquerdo do documento até o ponto final do novo segmento.

Se o EditingType do novo segmento for msoEditingAuto, não especifique um valor para esse argumento.

Exemplo

Este exemplo seleciona a terceira forma no documento ativo, verifica se ela é um objeto Freeform e, se for, insere um nó. O exemplo supõe que existam três formas na planilha ativa.

Sub InsertShapeNode() 
    ActiveSheet.Shapes(3).Select 
    With Selection.ShapeRange 
        If .Type = msoFreeform Then 
            .Nodes.Insert _ 
                Index:=3, SegmentType:=msoSegmentCurve, _ 
                EditingType:=msoEditingSymmetric, X1:=35, Y1:=100 
            .Fill.ForeColor.RGB = RGB(0, 0, 200) 
            .Fill.Visible = msoTrue 
        Else 
            MsgBox "This shape is not a Freeform object." 
        End If 
    End With 
End Sub

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.