Sub Test() ActiveShape.Outline.LineCaps = cdrOutlineRoundLineCaps ActiveShape.Outline.LineJoin = cdrOutlineRoundLineJoinEnd Sub