Método CanvasShapes.BuildFreeform (Word)
Genera un objeto de forma libre. Devuelve un objeto FreeformBuilder que representa la forma libre mientras se está generando. .
Sintaxis
expresión. BuildFreeform( _EditingType_ , _X1_ , _Y1_ )
expresión requerida. Variable que representa un objeto "CanvasShapes".
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| EditingType | Obligatorio | MsoEditingType | El parámetro EditingType puede ser msoEditingAuto o msoEditingCorner; no puede ser msoEditingSmooth o msoEditingSymmetric. |
| X1 | Obligatorio | Single | La posición (en puntos) del primer nodo del dibujo con forma libre con relación al borde izquierdo del documento. |
| Y1 | Obligatorio | Single | La posición (en puntos) del primer nodo del dibujo con forma libre con relación al borde superior del documento. |
Comentarios
Utilice el método AddNodes para agregar segmentos a la forma libre. Después de agregar al menos un segmento a la forma libre, puede usar el método ConvertToShape para convertir el objeto FreeformBuilder en un objeto Shape que tenga la descripción geométrica que ha definido en el objeto FreeformBuilder .
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
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.