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