Corel FORUM

[braindead]

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]

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]

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]

Trurl dzięki:) Chyba jestem ślepy.

[grzjanik]

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]

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.