Sub ItemArrowHead() Dim s As Shape For Each s In ActiveDocument.Selection.Shapes If s.Outline.Type = cdrOutline Then s.Outline.StartArrow = ArrowHeads.Item(5) 'can also be referenced as s.Outline.StartArrow = ArrowHeads (5) End If Next sEnd Sub