Просматривают:
1 Анонимно
замена палитр |
||
|
||
---|---|---|
Новичок
Присоединился:
2007/2/1 6:14 Сообщений: 2
|
столкнулся с тем, что в картинках нужно привести все исп. краски к одной палитре. Но не знаю как это сделать во всех элементах
на сегодня имеем '======================== 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 '============================== буд благодарен за помошь
Опубликовано: 2007/2/1 6:23
|
|
|
Re: замена палитр |
|
---|---|---|
Пользователь 1 уровня
Присоединился:
2006/9/21 12:50 Откуда Славный город Новосиб
Сообщений: 1169
|
Заходишь в Эдит\Файнд энд Реплейс\Реплейс обжект\реплейс колор модел ор палетте - и меняешь все на нужную (например СМУК). Делать придется 2 раза, т.к. надо заливку и контур менять отдельно
Опубликовано: 2007/2/1 6:55
|
|
_________________
Зеленый когда синий всегда красный! |
||
|
Re: замена палитр |
|
---|---|---|
Титан - модератор
Присоединился:
2006/4/8 19:42 Сообщений: 152
|
если надо именно через вба, то см. образец прохождения по разного вида объектам например в CurveChannelMixer (http://recentfiles.netfir... - процедура processShapes внутри формы.
или в oberon ColorReplacer - http://www.oberonplace.co... или мой ремейк http://powerclip.ru/modul...
Опубликовано: 2007/2/1 21:12
|
|
|
Re: замена палитр |
|
---|---|---|
Новичок
Присоединился:
2007/2/1 6:14 Сообщений: 2
|
за совет спасибо, будем посмотреть. Одно небольшое уточнение. Если в файле стоят девас n битмапы с PantoneC, а вектор имеет PCVC, PCV, то файнд реплэйс не рулит. Все вышесказанное верно для потока на CorelDraw.Цитата:
Опубликовано: 2007/2/2 6:19
|
|