Método FreeformBuilder.ConvertToShape (PowerPoint)
Cria uma forma que tem as características geométricas do objeto FreeformBuilder especificado. Retorna um objeto Shape que representa a nova forma.
Sintaxe
expression. ConvertToShape
Expressão Uma variável que representa um objeto FreeformBuilder .
Valor de retorno
Forma
Comentários
Você deve aplicar o método AddNodes a um objeto FreeformBuilder pelo menos uma vez antes de usar o método ConvertToShape.
Exemplo
Este exemplo adiciona uma forma livre com cinco vértices ao primeiro slide na apresentação ativa.
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, 400
.AddNodes msoSegmentLine, msoEditingAuto, 360, 200
.ConvertToShape
End With
Confira também
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.