V-Форум / Corel VBA / Тема: замена палитр

замена палитр

 01/02/2007 6:23:24 #Link

столкнулся с тем, что в картинках нужно привести все исп. краски к одной палитре. Но не знаю как это сделать во всех элементах
на сегодня имеем
'========================
Sub topantoneC()

Dim s As Shape

For Each s In ActivePage.Shapes

If s.Fill.Type = cdrUniformFill Then

If s.Fill.UniformColor.Type = cdrColorSpot Or s.Fill.UniformColor.Type = cdrColorPantone Then
s.Fill.UniformColor.ConvertToFixed cdrPANTONECoated
End If
If s.Outline.Type = cdrOutline Then
If s.Outline.Color.Type = cdrColorSpot Or s.Outline.Color.Type = cdrColorPantone Then
s.Outline.Color.ConvertToFixed cdrPANTONECoated
End If
End If
End If
Next s

End Sub
'==============================
буд благодарен за помошь

Re: замена палитр

 01/02/2007 6:55:35 #Link

Заходишь в Эдит\Файнд энд Реплейс\Реплейс обжект\реплейс колор модел ор палетте - и меняешь все на нужную (например СМУК). Делать придется 2 раза, т.к. надо заливку и контур менять отдельно

Re: замена палитр

 01/02/2007 21:12:52 #Link

если надо именно через вба, то см. образец прохождения по разного вида объектам например в CurveChannelMixer (http://recentfiles.netfir... - процедура processShapes внутри формы.

или в oberon ColorReplacer - http://www.oberonplace.co... или мой ремейк http://powerclip.ru/modul...

Re: замена палитр

 02/02/2007 6:19:19 #Link

за совет спасибо, будем посмотреть.
Одно небольшое уточнение. Если в файле стоят девас n битмапы с PantoneC, а вектор имеет PCVC, PCV, то файнд реплэйс не рулит. Все вышесказанное верно для потока на CorelDraw.Цитата:

Источник: https://powerclip.ru/modules/newbb/viewtopic.php?topic_id=4658&start=0