Shapes.AddCurve (PowerPoint)
Cria uma curva de Bézier. Retorna um objeto Shape que representa a nova curva.
AddCurve (SafeArrayOfPoints)
SafeArrayOfPoints: Uma matriz de pares coordenados que especifica os vértices e pontos de controle da curva. O primeiro ponto a ser especificado é o vértice inicial, e os próximos dois pontos são pontos de controle para o primeiro segmento de Bézier. A seguir, para cada segmento adicional da curva, você deve especificar um vértice e dois pontos de controle. O último ponto que especificar é o vértice final para a curva. Observe que você deverá especificar sempre 3n + 1 pontos, onde n é o número de segmentos da curva.
Dim lngSafeArrayOfPoints() As Long: lngSafeArrayOfPoints() =
Dim shpAddCurve As Shape
Set shpAddCurve = ActiveWindow.Selection.SlideRange(1).Shapes.AddCurve(SafeArrayOfPoints:=lngSafeArrayOfPoints())