Sub LayerActive() ActiveLayer.CreateEllipse 3, 3, 2, 1 ActiveDocument.Selection.Shapes(1).Fill.UniformColor.HLSAssign 200, 100, 100End Sub