Color Converter

[click101]

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..

[johndankey]

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!

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

[click101]

John,

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

Georgeann