With
ActivePresentation.Slides(1).Shapes.BuildFreeform(ksoEditingCorner, 360, 200)
.AddNodes SegmentType:=ksoSegmentCurve, EditingType:=ksoEditingCorner, _
X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300
.AddNodes SegmentType:=ksoSegmentCurve, EditingType:=ksoEditingAuto, _
X1:=480, Y1:=200
.AddNodes SegmentType:=ksoSegmentLine, EditingType:=ksoEditingAuto, _
X1:=480, Y1:=400
.AddNodes SegmentType:=ksoSegmentLine, EditingType:=ksoEditingAuto, _
X1:=360, Y1:=200
End Wit