Sub Test() Dim c As New color Dim s As Shape For Each s In ActiveSelection.Shapes If s.Fill.Type = cdrUniformFill Then s.Fill.UniformColor.ConvertToCMY End If Next sEnd Sub