Método ShapeNodes.Insert (Excel)

Artículo
04/07/2023

Inserta un nodo en una forma libre.

Sintaxis

expresión. Insert (Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

Expresión Variable que representa un objeto ShapeNodes .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Index	Obligatorio	Integer	De tipo long. Número del nodo de forma detrás del cual va a insertarse un nuevo nodo.
SegmentType	Obligatorio	MsoSegmentType	Tipo de segmento.
EditingType	Obligatorio	MsoEditingType	El tipo de modificación.
X1	Obligatorio	Single	Si editingType del nuevo segmento es msoEditingAuto, este argumento especifica la distancia horizontal, medida en puntos, desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si editingType del nuevo nodo es msoEditingCorner, este argumento especifica la distancia horizontal, medida en puntos, desde la esquina superior izquierda del documento hasta el primer punto de control del nuevo segmento.
Y1	Obligatorio	Single	Si el valor de EditingType del nuevo segmento es msoEditingAuto, este argumento especifica la distancia vertical, en puntos, desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si editingType del nuevo nodo es msoEditingCorner, este argumento especifica la distancia vertical, medida en puntos, desde la esquina superior izquierda del documento hasta el primer punto de control del nuevo segmento.
X2	Obligatorio	Single	Si editingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal, medida en puntos, desde la esquina superior izquierda del documento hasta el segundo punto de control del nuevo segmento. Si editingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento.
Y2	Obligatorio	Single	Si editingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia vertical, medida en puntos, desde la esquina superior izquierda del documento hasta el segundo punto de control del nuevo segmento. Si editingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento.
X3	Obligatorio	Single	Si el valor de EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal, en puntos, desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si editingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento.
Y3	Obligatorio	Single	Si el valor de EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia vertical, en puntos, desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique ningún valor para este argumento.

Ejemplo:

En este ejemplo se selecciona la tercera forma del documento activo, se comprueba si se trata de un objeto de forma libre y, en caso afirmativo, se inserta un nodo. Se supone que existen tres formas en la hoja de cálculo activa.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.