OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Oberon Products > New product ideas

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 15-04-2004, 12:56
click101
Guest
 
Posts: n/a
Default Color Converter

Corel needs an easier color converter other than find and replace.
I mainly work in spot color but then have to convert this art to cmyk and then to rgb for the web. It is such a drag to convert these.

It would be nice to be able to convert a document/selected object or group of objects from one color model to another with 1 click for fills and outlines.

Spot ->RGB
Spot ->Cmyk
Cmyk ->Rgb
RGB->Cmyk

Thanks..
Reply With Quote
  #2  
Old 24-04-2004, 12:07
johndankey
Guest
 
Posts: n/a
Default

Hello, Click. I've been using the following subroutine for years. I just don't have enough similar subs to fit into a module & publish, yet!

Code:
Sub ToRGB()
    Dim c As New Color
    Dim s As Shape
    
    On Error GoTo SkipIt
' change this next line to ActiveLayer or ActiveSelection if you wish
    For Each s In ActivePage.Shapes
        s.Selected = True
        If s.Fill.Type = cdrUniformFill Then
            c.CopyAssign s.Fill.UniformColor
'change this to ConvertToCMYK, etc. if you wish.
            c.ConvertToRGB
            s.Fill.ApplyUniformFill c
        End If
        If s.Outline.Type = cdrOutline Then
            c.CopyAssign s.Outline.Color
'change this to ConvertToCMYK, etc. if you wish.
            c.ConvertToRGB
            s.Outline.Color = c
        End If
SkipIt:
        s.Selected = False
    Next s
End Sub
Good luck.

johndankey
Reply With Quote
  #3  
Old 27-04-2004, 08:16
click101
Guest
 
Posts: n/a
Default Thank you!

John,

Thank you so much...I knew it would be pretty simple. I know Corel inside and out but am still learning VBA.

Georgeann
Reply With Quote
Reply


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


All times are GMT -5. The time now is 04:56.


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