Sub Test() If ActiveShape.Outline.Type = cdrNoOutline Then ActiveShape.Outline.Width = 0.1 End IfEnd Sub