Sub Item() Dim s As Shape For Each s In ActiveDocument.Selection.Shapes If s.Outline.Type = cdrOutline Then s.Outline.StartArrow = ArrowHeads.Item(5) End If Next sEnd Sub