Sub App() With ActiveShape.Curve.Segments(1) .StartingControlPointLength = 5 .EndingControlPointLength = 5 End WithEnd Sub