Re: Макрос для установки/отмены оверпринта

Написал magnus_z в 22/02/2008 8:02:59

Как вариант: Проверяешь (не ручками, а с помощью VBA) все объекты на слое/странице/документе на наличие белого цвета - если белый, проверяешь, стоит ли овер. Если стоит - снимаешь его. Для Pattern и пр. заливок тоже не забудь про белый и тоже сними овер. И про проверку в PowerClip не забудь.
В _самом простейшем_ случае для CMYK обводок будет как-то так:

Dim s as Shape

For Each s In ActiveLayer.FindShapes(, cdrOutline)
With s.Outline.Color
If .Type = cdrColorCMYK Then
If s.OverprintOutline = True Then
If .CMYKCyan = 0 And .CMYKMagenta = 0 And .CMYKYellow = 0 And .CMYKBlack = 0 Then
s.OverprintOutline = False
End If
End If
End If
End With
Next

Остальное поймёшь сам, прочитав в хелпе по VBA CorelDraw

Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=81408

Rambler's Top100