Share via

Método Shapes.BuildFreeform (PowerPoint)

  • Artículo

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

Comentarios

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

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.