Foro Excel

Hola a todos quisiera dibujar shapes curvos dandoles coordenadas iniciales y finales. yo he conseguido dibujar shapes rectos con el siguiente codigo:

With Sheets("Visor").Shapes.AddLine(Xx, Yy, xp, yp)
.Name = "barra" & CStr(barrai)
End With

With Sheets("Visor").Shapes("barra" & CStr(barrai)).Line

' Opciones de linea barra
.DashStyle = 1
.ForeColor.SchemeColor = Color
.Weight = alto ' ancho de liea

' Para el punto inicial
.BeginArrowheadLength = 1 'Indica el porte del figura del PTO inicial(1,2 o 3)
.BeginArrowheadStyle = 1 ' indica que tipo de fig se dibuja . en pto 1(1 a 6)
.BeginArrowheadWidth = 1 'ancho de la figura en punto inicial (1 a 3)

' Punto final
.EndArrowheadLength = 1 'porte de la cabeza en pto final
.EndArrowheadStyle = 1 ' indica que tipo de fig se dibuja . en pto 2(1 a 6)
.EndArrowheadWidth = 1 'ancho de la figura en punto final (1 a 3)

End With

Les pongo el siguiente ejemplo que yo ya he logrado pero con shapes rectos

Nota: Shape = linea

Has probado con algo asi

With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 90.75, 745.5)
.AddNodes msoSegmentCurve, msoEditingAuto, 138#, 668.25
.AddNodes msoSegmentCurve, msoEditingAuto, 158.25, 709.5
.AddNodes msoSegmentCurve, msoEditingAuto, 213#, 683.25
.AddNodes msoSegmentCurve, msoEditingAuto, 180.75, 764.25
.ConvertToShape.Select
End With

habria que estudiarlo un poco para darle las coordenadas, saludos