Zobacz temat - RGB na CMYK

Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych

CorelDRAW - grafika wektorowa - RGB na CMYK

braindead - 19 Kwiecień 2018, 08:53
Temat postu: RGB na CMYK

Cześć.

Mam pytanie czy jest jakiś patent na następującą sprawę:

Pobrałem sobie plik wektorowy z jakieś strony na przykład z freepik. Jest cały w wektorach, ale wszystkie są w RGB. Czy jest jakaś opcja, która zrobi mi z RGB na CMYK, ale bez zamieniania na bitmapę? Jest tam dużo obiektów i ciężko to robić po jednym. Z kolei jak chce użyć znajdź i zamień to jest około 50 różnych wartości RGB co również będzie problematyczne.

Dziękuje za jakieś podpowiedzi i miłego dnia.

restauro - 19 Kwiecień 2018, 09:08

Teoretycznie jest to możliwe ,ale rezultat końcowy jest daleki od ideału . Spróbuj na przykładzie zieleni czy błękitów .

Trurl - 19 Kwiecień 2018, 09:11

Cytat:

Czy jest jakaś opcja, która zrobi mi z RGB na CMYK, ale bez zamieniania na bitmapę?

Jest: Edit/Find and Replace/Replace Object/Replace a color model or palette.

Tylko trzeba to zrobić osobno dla konturów i wypełnień.

:-)

braindead - 19 Kwiecień 2018, 09:16

Trurl dzięki:) Chyba jestem ślepy.

grzjanik - 19 Kwiecień 2018, 09:40
Temat postu: RGB To CMYK

Witam.

Można to zrobić makrem jednym kliknięciem:

Wstawiam lekko zmodyfikowane Makro Alex'a (u mnie oryginalne makro nie chciało działać)
{źródło: https://forum.oberonplace.com/showthread.php?t=269&highlight=shapes+cmyk}

Kod:

Public Sub ConvertAllColorsToCMYK_A()
ConvertShapes_A ActivePage.Shapes
End Sub

Private Sub ConvertShapes_A(ss As Shapes)
Dim s As Shape

For Each s In ss
Select Case s.Type
Case cdrTextShape, cdrRectangleShape, cdrPolygonShape, _
cdrLinearDimensionShape, cdrEllipseShape, cdrCurveShape, _
cdrConnectorShape, cdrBitmapShape

ConvertShapeColors_A s

Case cdrGroupShape
ConvertShapes_A s.Shapes
End Select
On Error Resume Next
If Not s.PowerClip Is Nothing Then
ConvertShapes_A s.PowerClip.Shapes
End If

If s.Type = cdrBitmapShape Then s.Bitmap.ConvertTo cdrCMYKColorImage

Next s
End Sub

Private Sub ConvertShapeColors_A(s As Shape)
Dim c As FountainColor

Select Case s.Fill.Type
Case cdrUniformFill
ConvertColor_A s.Fill.UniformColor

Case cdrPatternFill
ConvertColor_A s.Fill.Pattern.FrontColor
ConvertColor_A s.Fill.Pattern.BackColor

Case cdrFountainFill
ConvertColor_A s.Fill.Fountain.StartColor
ConvertColor_A s.Fill.Fountain.EndColor
For Each c In s.Fill.Fountain.Colors
ConvertColor_A c.Color
Next c
End Select

If s.Outline.Type = cdrOutline Then
ConvertColor_A s.Outline.Color
End If
End Sub

Private Sub ConvertColor_A(c As Color)
c.ConvertToCMYK
End Sub

U mnie działa w 100%.

Pozdro.
GrzJanik

Cysorz - 19 Kwiecień 2018, 21:22

Można też trochę na skróty: zapisać jako pdf (np. X-1a) i zaimportować z powrotem. Traci się przy takiej konwersji m.in. formatowanie tekstu i efekty specjalne, ale jest to dosyć prosty sposób.