Método FreeformBuilder.AddNodes (Excel)

Agrega un punto en la forma actual y, a continuación, dibuja una línea desde el nodo actual al último nodo que se agregó.

Sintaxis

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

Expresión Variable que representa un objeto FreeformBuilder .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
SegmentType	Obligatorio	MsoSegmentType	Tipo de segmento que se va a agregar.
EditingType	Obligatorio	MsoEditingType	Propiedad de modificación del vértice.
X1	Obligatorio	Single	Si editingType del nuevo segmento es msoEditingAuto, 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 nodo es msoEditingCorner, este argumento especifica la distancia horizontal (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 horizontal, 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 (en puntos) desde la esquina superior izquierda del documento hasta el primer punto de control del nuevo segmento.
X2	Opcional	Variant	Si editingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal (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	Opcional	Variant	Si editingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal (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	Opcional	Variant	Si editingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal (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.
Y3	Opcional	Variant	Si editingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el segundo punto de control del nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique ningún valor para este argumento.

Comentarios

MsoEditingType no puede ser msoEditingSmooth o msoEditingSymmetric. Si SegmentType es msoSegmentLine, EditingType debe ser msoEditingAuto.

Ejemplo:

En este ejemplo se agrega una forma libre con cuatro segmentos a myDocument.

Set myDocument = Worksheets(1) 
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200) 
    .AddNodes msoSegmentCurve, msoEditingCorner, _ 
        380, 230, 400, 250, 450, 300 
    .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200 
    .AddNodes msoSegmentLine, msoEditingAuto, 480, 400 
    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200 
    .ConvertToShape 
End With

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.