Objects not CMYK

[grzjanik]

Hi Shelby.

My problem has not yet been resolved.
I can not cope with the gradients.

I can select uniform fills, outlines but I can't select gradients are not CMYK.

Can you help me?

Thanks for your time.

~GrzJanik

[shelbym]

For a Fountain Fill you need to loop each color in the fill and test to see if it is CMYK, so something like this:

Sub NotCMYKFountainFills()
    Dim s As Shape
    Dim ff As FountainFill
    Dim srNoneCMYK As New ShapeRange
    Dim i As Long
    
    For Each s In ActivePage.FindShapes()
        If s.Fill.Type = cdrFountainFill Then
            Set ff = s.Fill.Fountain
            
            For i = 0 To ff.Colors.Count + 1
                If ff.Colors(i).Color.Type <> cdrColorCMYK Then
                    srNoneCMYK.Add s
                End If
            Next i
        End If
    Next s
    
    srNoneCMYK.CreateSelection
End Sub

Hope that helps,

-Shelby

[grzjanik]

Thanks Shelby.

Thats great work!

Best regards

~GrzJanik