Objeto FreeformBuilder (PowerPoint)

Representa la geometría de una forma libre mientras se crea.

Ejemplo:

Utilice el método BuildFreeform para devolver un objeto FreeformBuilder. Use el método AddNodespara agregar nodos a freefrom. Utilice el métodoConvertToShape para crear la forma definida en el objeto FreeformBuilder y agregarlo a la colección Shapes. En el siguiente ejemplo se agrega una forma libre con cuatro segmentos a myDocument.

Set myDocument = ActivePresentation.Slides(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, 40
    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200
    .ConvertToShape
End With

Consulte también

Referencia del modelo de objetos de PowerPoint

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.