замена цветов

[Lurex]

Может кто-нибудь распологает скриптом для более удобной замены цветов в макете одним махом, например один пантон на другой с учетом процентов отличных от 100%, заливок и контуров одовременно, а то в кореле этот иструмент не меняется на протяжении 4-х версий...

 

[banIDit]

Ответ: замена цветов

а то в кореле этот иструмент не меняется на протяжении 4-х версий...

Смотри внимательнее: Tools>Color styles. Это типа swatches в Илле причем гораздо удобнее. За подробностями в Help или к методу научного тыка.

 

[lev]

Ответ: замена цветов

www.oberonplace.com - Oberon Color Replacer

 

[wOxxOm]

Ответ: замена цветов

А тут вот значительно дополненная версия с легкой руки Lev - http://forum.oberonplace.com/showpost.php?p=3645&postcount=1 - фото нового макро там же

 

[wOxxOm]

Ответ: замена цветов

Добавил историю замены цветов и исправил глюк при выборе другой палитры

Лежит там же

 

[Toh_A]

Ответ: замена цветов

Маленький глюк-при нажатии пипетки около иконки изменяемого цвета, курсор меняется не на "пипетку" а на курсор инструмента "interaktive extrude tool". мелочь, но когонить до паники довести может)

И нельзя ли цеплять пипеткой цвета с обводки?

ЗЫ: Всех с прошедшими праздниками!

 

[wOxxOm]

Ответ: замена цветов

Уже второй раз пугает мой выбор курсора а цвет обводки берется с shift

 

[LevySt]

Ответ: замена цветов

посоветуйте, как все палитры в файле привести к pantoneC
что-то типа
=============================
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

End If

Next s

End Sub
==========================================
но нужно еще и контуры и градиенты, а к тому же в группах и в поверклипах