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