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

Статус
Закрыто для дальнейших ответов.

RITTER

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

Fog_patch

12 лет на форуме
Сообщения
3 163
Реакции
998
Ответ: Подписать краски макросом?

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

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

Код:
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

Участник
Топикстартер
Сообщения
9
Реакции
0
Ответ: Подписать краски макросом?

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

Fog_patch

12 лет на форуме
Сообщения
3 163
Реакции
998
Ответ: Подписать краски макросом?

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

RITTER

Участник
Топикстартер
Сообщения
9
Реакции
0
Ответ: Подписать краски макросом?

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

RITTER

Участник
Топикстартер
Сообщения
9
Реакции
0
Ответ: Подписать краски макросом?

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

lev

Модератор
20 лет на форуме
Сообщения
2 147
Реакции
2 072
Ответ: Подписать краски макросом?

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