Método ShapeNodes.Insert (Excel)

Artigo
04/07/2023

Insere um nó em uma 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	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, esse 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, esse 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.

Share via