Sub Test() Dim s As Shape Set s = ActiveShape If s Is Nothing Then MsgBox "Nothing is selected." Exit Sub End If If s.Outline.Type = cdrOutline Then s.Outline.EndArrow = ArrowHeads(5) End If End Sub Sub 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 s End Sub