Compartir a través de

Método ShapeNodes.Insert (Excel)

  • Artículo

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.