Método FreeformBuilder.AddNodes (Word)

Inserta un nuevo segmento al final de la forma libre que se está creando y agrega los nodos que definen el segmento.

Sintaxis

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

expresión requerida. 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. Si SegmentType es msoSegmentLine, EditingType debe ser msoEditingAuto.
X1	Obligatorio	Single	Si el parámetro EditingType del nuevo segmento es msoEditingAuto, este argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el extremo final del nuevo segmento. Si el parámetro 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 para el nuevo segmento.
Y1	Obligatorio	Single	Si el parámetro EditingType del nuevo segmento es msoEditingAuto, este argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el extremo final del nuevo segmento. Si el parámetro EditingType del nuevo nodo es msoEditingCorner, este argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el primer punto de control para el nuevo segmento.
X2	Opcional	Single	Si el parámetro 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 para el nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento.
Y2	Opcional	Single	Si el parámetro EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el segundo punto de control para el nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento.
X3	Opcional	Single	Si el parámetro EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el extremo final del nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento.
Y3	Opcional	Single	Si el parámetro EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el extremo final del nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento.

Comentarios

Use este método tantas veces como desee agregar nodos a la forma libre que está creando. Cuando termine de agregar nodos, utilice el método ConvertToShape para crear la forma libre que acaba de definir. Para agregar nodos a una forma libre después de crearla, utilice el método Insert de la colección ShapeNodes.

Ejemplo:

En este ejemplo se agrega una forma libre con cinco vértices al documento activo.

Dim docActive As Document 
 
Set docActive = ActiveDocument 
 
With docActive.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

Consulte también

Objeto FreeformBuilder

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.