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())