OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 24-10-2008, 08:38
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Default 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

Last edited by grzjanik; 06-06-2012 at 02:24.
Reply With Quote
  #2  
Old 24-10-2008, 09:32
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Default 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
Reply With Quote
  #3  
Old 24-05-2012, 09:59
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Post Objects not CMYK

Hi members.

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

Please help.

Thanks.
~GrzJanik
Reply With Quote
  #4  
Old 24-05-2012, 11:28
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,770
Blog Entries: 10
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Cmyk

What version of CorelDRAW are you using?

-Shelby
Reply With Quote
  #5  
Old 24-05-2012, 14:33
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Post Objects not CMYK

Hi Shelby.

Sorry, I'm using Corel 12.

Thanx
~GrzJanik
Reply With Quote
  #6  
Old 28-05-2012, 05:01
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Post 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

Last edited by grzjanik; 28-05-2012 at 05:06.
Reply With Quote
  #7  
Old 01-06-2012, 11:43
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,770
Blog Entries: 10
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default 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

Last edited by shelbym; 01-06-2012 at 11:57.
Reply With Quote
  #8  
Old 06-06-2012, 02:39
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Post Not CMYK

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

Is it possible?

~GrzJanik
Reply With Quote
  #9  
Old 06-06-2012, 02:41
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Smile

Mixed up the order of posts.
Reply With Quote
  #10  
Old 07-06-2012, 01:42
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,770
Blog Entries: 10
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Smile Cmyk

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

-Shelby
Reply With Quote
Reply

Tags
cmyk, objects


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
v11 images opening in CMYK, not RGB as saved mascotgraphics General 6 19-11-2009 17:05
How to get or setup a shape's RGB /CMYK Values mitchellhu CorelDRAW/Corel DESIGNER VBA 13 05-12-2007 10:48
Convert CMYK to RGB jooksingjai General 1 30-07-2007 23:07
CMYK color Palette in CORELDRAW X3 whitechapel General 2 20-04-2007 02:29
EPS Exports to CMYK... Argh! ddonnahoe CorelDRAW/Corel DESIGNER VBA 3 11-06-2004 22:07


All times are GMT -5. The time now is 07:59.


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