Подписать краски макросом?

[RITTER]

Нужно вставить строку подписывающую краски в выделенном макете. Например суаnmagentaPANTONE Reflex Blue. Т.е. часто нужно быстро отрыть кучку старых этикеток и отправить заказчику на одном JPGе, предварительно подписав красочность каждой. Написать не получается, а готового не нашёл. Помогите пожалуйста.

 

[Fog_patch]

Ответ: Подписать краски макросом?

Подписать выделенный объект(ы) легко — круглишки например какие-нибудь, но если это макет, а там куча разносортных объектов всевозможных размеров и форм, всяких надписей, эффектов, то вот тут придется попотеть.

Если есть желание потеть даю простейший пример как оно может выглядеть.
Выделяете некие объекты и запускаете вот этот код:

Sub ColorName()
Dim s As Shape
Dim x As Double, y As Double
ActiveDocument.ReferencePoint = cdrCenter
For Each s In ActiveSelection.Shapes
    i = i + 1
    s.GetPosition x, y
    ActiveLayer.CreateArtisticText x, y, s.Fill.UniformColor.Name(True), True, , Arial, 10, , , , cdrCenterAlignment
Next s
End Sub

Если потеть неохота, то можно насколько я помню заказать скрипт у sanchos-a на сайте.

 

[RITTER]

Ответ: Подписать краски макросом?

Спасибо! Пример пригодится. Но в данном случае нужно еще и растр учесть. Может можно из напечатанного временного файла извлечь названия сепараций? Макеты не тяжелые. Заказы временно не принимаются. Готовое хорошее решение приобрету за разумные деньги.

 

[Fog_patch]

Ответ: Подписать краски макросом?

Обратитесь вот сюда http://allmacros.ru/
Там сидят опытные люди, которые помогут за небольшое (я думаю) вознаграждение.

 

[RITTER]

Ответ: Подписать краски макросом?

Спасибо, попробую обратиться к известным гуру

 

[lev]

Ответ: Подписать краски макросом?

auto enter color names

wOxxOm Color Swatch
ещё обсуждение

 

[RITTER]

Ответ: Подписать краски макросом?

Спасибо большое! Это именно то,что нужно! Для полного счастья не хватает учёта красочности битмапов, но,видимо,это уже малореально.

 

[lev]

Ответ: Подписать краски макросом?

Учёт красочности битмапов, хотя бы частично, привинтить можно. Инфу можно взять из названий сепараций принтера. Так, например, можно отловить цвета вставленных eps'ов.