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