Sub Test() Dim sgr As SegmentRange Dim r As VbMsgBoxResult Set sgr = ActiveShape.Curve.Segments.All If sgr.Type <> cdrCurveSegment Then r = MsgBox("There are some lime segments in the shape." & vbCr & _ "Do you want to convert them to curves?", vbYesNo) If r = vbYes Then sgr.SetType cdrCurveSegment Else MsgBox "All segments are curves" End If End Sub