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