Objects not CMYK

[grzjanik]

Hi Shelby.

Thanks for your reply.

I don't know how looks syntax for fountain fills.

I tried:

        If s.Fill.Type = cdrFountainFill Then
            If s.Fill.Fountain.StartColor <> cdrColorCMYK And s.Fill.Fountain.EndColor <> cdrColorCMYK Then
                srNoneCMYK.Add s
            End If
        End If

but it doesn't work.

Do you help me?

Thanks a lot.

~GrzJanik

[grzjanik]

This code selecting objects with group (and probably should not):

Sub FountainFillsNotCMYK() 'SH
    ActiveDocument.ClearSelection
    Dim s As Shape, srNoneCMYK As New ShapeRange
    For Each s In ActivePage.FindShapes()
        If s.Fill.Type = cdrFountainFill Then
            If s.Fill.Fountain.Type <> cdrColorCMYK Then srNoneCMYK.Add s
        End If
    Next s
    srNoneCMYK.CreateSelection
End Sub

What's wrong?

~GrzJanik

[grzjanik]

Hi members.

How do I find all objects that are not CMYK?
Vectors and bitmaps on ActivePage.

Please help.

Thanks.
~GrzJanik

[shelbym]

What version of CorelDRAW are you using?

-Shelby

[grzjanik]

Hi Shelby.

Sorry, I'm using Corel 12.

Thanx
~GrzJanik

[grzjanik]

Hi.
In CorelDraw 12...
I can select a bitmaps not CMYK, but I can not find the other objects.
I need to find (select) on ActivePage each object is not CMYK.

Sub SelectAllBitmapsNotCMYKOnPage()
    ActiveDocument.ClearSelection
    Dim s As Shape, sr As ShapeRange
    ActivePage.Shapes.FindShapes(, cdrBitmapShape).CreateSelection
    Set s = ActiveShape
    Set sr = ActiveSelectionRange
        For Each s In sr
            If s.Bitmap.Mode = cdrCMYKColorImage Then s.RemoveFromSelection
        Next s
End Sub

Anyone have any idea?

I greet
~GrzJanik

[shelbym]

Here is a start for you:

Sub NotCMYK()
    Dim s As Shape
    Dim srNoneCMYK As New ShapeRange
    
    For Each s In ActivePage.FindShapes()
        If s.Fill.Type = cdrUniformFill Then
            If s.Fill.UniformColor.Type <> cdrColorCMYK Then
                srNoneCMYK.Add s
            End If
        End If
    Next s
    
    srNoneCMYK.CreateSelection
End Sub

Best of luck,

-Shelby

[grzjanik]

I would like to select all the filling is not CMYK yet.

Is it possible?

~GrzJanik

[grzjanik]

Mixed up the order of posts.

[shelbym]

Has your question been answered? I am a little lost.

-Shelby