Sub Test() Dim s As Shape For Each s In ActivePage.Shapes With s.Outline If .Type = cdrOutline Then If .StartArrow.Index = 3 Then .StartArrow = ArrowHeads(5) .Color.RGBAssign 255, 0, 0 End If End If End With Next sEnd SubSub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Outline.Type = cdrOutline Then s.Outline.StartArrow = Nothing s.Outline.EndArrow = Nothing End If Next sEnd Sub