OberonPlace.com Forums

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.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com