Objeto FreeformBuilder (PowerPoint)

Representa a geometria de uma forma livre enquanto ela está sendo construída.

Exemplo

Use o método BuildFreeform para retornar um objeto FreeformBuilder. Use o método AddNodespara adicionar nós ao freefrom. Use o métodoConvertToShape para criar a forma definida no objeto FreeformBuilder e adicioná-lo à coleção Shapes. O exemplo a seguir adiciona uma forma livre com quatro 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

Confira também

Referência de modelo de objeto do PowerPoint

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.