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.