OberonPlace.com Forums  

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

Reply
 
Thread Tools Search this Thread Display Modes
  #11  
Old 07-06-2012, 13:43
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 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
Reply With Quote
  #12  
Old 07-06-2012, 16:55
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
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 Fountain Fills

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:
Code:
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
Reply With Quote
  #13  
Old 08-06-2012, 04:24
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Smile Not CMYK

Thanks Shelby.

Thats great work!

Best regards

~GrzJanik
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 18:05
How to get or setup a shape's RGB /CMYK Values mitchellhu CorelDRAW/Corel DESIGNER VBA 13 05-12-2007 11:48
Convert CMYK to RGB jooksingjai General 1 31-07-2007 00:07
CMYK color Palette in CORELDRAW X3 whitechapel General 2 20-04-2007 03:29
EPS Exports to CMYK... Argh! ddonnahoe CorelDRAW/Corel DESIGNER VBA 3 11-06-2004 23:07


All times are GMT -5. The time now is 21:20.


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