Sub SelectionActive() Dim s As Shape For Each s In ActiveSelection.Shapes If s.Type = cdrEllipseShape Then s.Fill.UniformColor.CMYKAssign 100, 0, 100, 0 End If Next sEnd Sub