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

Написал magnus_z в 22/02/2008 9:32:28

Не знаю, где ты видел этот код - он элементарный, накатывается за пару минут, там всё понятно.
Если нужно обработать не CMYK - сначала конверти их в CMYK (хелп VBA в помощь, строка кода) или, если не нужно (оооооооо.....) этого делать, тогда делай по аналогии с тем примером, что я дал :-)))
Что же касается пантонов, то ты читал хелп к VBA? Там всё расписано.
Ты сначала определись, что тебе нужно делать - и делай последовательно. К примеру, для нашего RIP'а у меня такая последовательность операций:
http://fandom.ru/about_fa...
Для "белого", как ты называешь, пантона, проверяешь Tint - если равен 0, значит снимаешь овер. И всё :-)))
Не знаю, что у тебя за пантон - на всякий случай накидал побольше:

For Each s In ActiveLayer.FindShapes(, cdrOutline)
If s.Outline.Color.Type = cdrColorPantone Or s.Outline.Color.Type = cdrColorSpot Or s.Outline.Color.Type = cdrDIC Or s.Outline.Color.Type = cdrFOCOLTONE Or s.Outline.Color.Type = cdrHKS Or s.Outline.Color.Type = cdrLab Or s.Outline.Color.Type = cdrPANTONECoated Or s.Outline.Color.Type = cdrPANTONECorel8 Or s.Outline.Color.Type = cdrPANTONEHexCoated Or s.Outline.Color.Type = cdrPANTONEHexUncoated Or s.Outline.Color.Type = cdrPANTONEMatte Or s.Outline.Color.Type = cdrPANTONEMetallic Or s.Outline.Color.Type = cdrPANTONEPastelCoated Or s.Outline.Color.Type = cdrPANTONEPastelUncoated Or s.Outline.Color.Type = cdrPANTONEProcess Or s.Outline.Color.Type = cdrPANTONEUncoated Or s.Outline.Color.Type = cdrSpectraMaster Or s.Outline.Color.Type = cdrTOYO Or s.Outline.Color.Type = cdrTRUMATCH Or s.Outline.Color.Type = 14 Then
If s.Outline.Color.Tint = 0 Then
If s.OverprintOutline = True Then
s.OverprintOutline = False
End If
End If
End If
Next

P.S. Читай хелп по VBA (там много всего умного-полезного написано), разбирайся с кодом сам. Иначе никогда не разберёшься.