Sub Test() Dim sr As New ShapeRange Dim s As Shape Dim n As Long For n = 1 To 10 sr.Add ActiveLayer.CreateLineSegment(0, n / 2, 5, n / 2) Next n Set s = sr.Combine s.Outline.EndArrow = ArrowHeads(2) s.Curve.Subpaths(3).ReverseDirectionEnd Sub