столкнулся с тем, что в картинках нужно привести все исп. краски к одной палитре. Но не знаю как это сделать во всех элементах
на сегодня имеем
'========================
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
'==============================
буд благодарен за помошь

Заходишь в Эдит\Файнд энд Реплейс\Реплейс обжект\реплейс колор модел ор палетте - и меняешь все на нужную (например СМУК). Делать придется 2 раза, т.к. надо заливку и контур менять отдельно

если надо именно через вба, то см. образец прохождения по разного вида объектам например в CurveChannelMixer (http://recentfiles.netfir... - процедура processShapes внутри формы.

или в oberon ColorReplacer - http://www.oberonplace.co... или мой ремейк http://powerclip.ru/modul...

за совет спасибо, будем посмотреть.
Одно небольшое уточнение. Если в файле стоят девас n битмапы с PantoneC, а вектор имеет PCVC, PCV, то файнд реплэйс не рулит. Все вышесказанное верно для потока на CorelDraw.Цитата: