может кто сталкивался с такой вот задачкой:

назначение пантона объекту с использованием внешнего файла, в котором перечислены номера необходимых цветов пантона (PANTONECoated)
сам я попробовал, но вот проблемка, корел назначает цвет по порядковуму номеру пантона, исходя из его собственной таблицы (таблици корела)

Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
OrigSelection.ApplyUniformFill CreateFixedColor(cdrPANTONECoated, 985, 100)
ActiveSelection.Fill.PSScreen.SetProperties "Default", 45#, 60

а ведь это PANTONE 7412 C, т.е. он у него в табличке идет под номером 985

у меня этих цветов тыщи полторы наверно (или сколько там не знаю) и каждый обозначен по народному номеру типа того что выше 7412

//делал в 13 кореле, 11-й просто отказался признавать пантон//

фуу.. надеюсь объяснил.

ps. на мелочи типа работы с внешним файлом и перебиранием последовательности цифорок не отвликаюсь - это последнее дело. Главное суметь назначить цвет имея в наличии его номер