Método Shapes.BuildFreeform (Excel)

Genera un objeto de forma libre. Devuelve un objeto FreeformBuilder que representa la forma libre mientras se está generando.

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 .

Sintaxis

expresión. BuildFreeform (EditingType, X1, Y1)

expresión Variable que representa un objeto Shapes.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
EditingType	Obligatorio	MsoEditingType	Propiedad de edición del primer nodo.
X1	Obligatorio	Single	Posición (en puntos) del primer nodo del dibujo de forma libre con respecto a la esquina superior izquierda del documento.
Y1	Obligatorio	Single	Posición, en puntos, del primer nodo del dibujo de forma libre con relación a la esquina superior izquierda del documento.

Valor devuelto

FreeformBuilder

Ejemplo

En este ejemplo se agrega una forma libre con cinco vértices 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.