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 IfEnd 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