OberonPlace.com Forums - Objects not CMYK

Page 1 of 2

Show 40 post(s) from this thread on one page

OberonPlace.com Forums (http://forum.oberonplace.com/index.php)

- Macros/Add-ons (http://forum.oberonplace.com/forumdisplay.php?f=21)

- - Objects not CMYK (http://forum.oberonplace.com/showthread.php?t=8212)

grzjanik

24-10-2008 08:38

Not CMYK

Hi Shelby.

Thanks for your reply.

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

I tried:

Code:



        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

24-10-2008 09:32

Not CMYK

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

Code:



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

24-05-2012 09:59

Objects not CMYK

Hi members.

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

Please help. :)

Thanks.
~GrzJanik

shelbym

24-05-2012 11:28

Cmyk

What version of CorelDRAW are you using?

-Shelby

grzjanik

24-05-2012 14:33

Objects not CMYK

Hi Shelby.

Sorry, I'm using Corel 12.

Thanx
~GrzJanik

grzjanik

28-05-2012 05:01

Not CMYK

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.

Code:

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

01-06-2012 11:43

Not CMYK

Here is a start for you:

Code:

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

06-06-2012 02:39

Not CMYK

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

Is it possible?

~GrzJanik

grzjanik

06-06-2012 02:41

Mixed up the order of posts. :)

shelbym

07-06-2012 01:42

Cmyk

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

-Shelby

All times are GMT -5. The time now is 06:23.

Page 1 of 2

Show 40 post(s) from this thread on one page