Método Shapes.BuildFreeform (PowerPoint)

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 Variable que representa un objeto Shapes.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
EditingType	Obligatorio	MsoEditingType	Propiedad de edición del primer nodo.
X1	Obligatorio	Single	Posición horizontal, medida en puntos, del primer nodo del dibujo con forma libre en relación con el borde izquierdo de la diapositiva.
Y1	Obligatorio	Single	Posición vertical, medida en puntos, del primer nodo del dibujo con forma libre en relación con el borde superior de la diapositiva.

Valor devuelto

FreeformBuilder

Observaciones

Utilice el método AddNodes para agregar segmentos a la forma libre. Después de haber agregado al menos un segmento a la forma libre, puede utilizar 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 cuatro segmentos a myDocument.

    Set myDocument = ActivePresentation.Slides(1)
    With myDocument.Shapes.BuildFreeform(EditingType:=msoEditingCorner, _
    X1:=360, Y1:=200) 
        .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingCorner, _ 
            X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300 
        .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingAuto, _ 
            X1:=480, Y1:=200 
        .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
            X1:=480, Y1:=400 
        .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
            X1:=360, Y1:=200 
        .ConvertToShape 
    End With

Vea también

• Shapes (objeto)

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.