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

Написал wOxxOm в 22/02/2008 10:20:26

эй, как насчет такого стиля:

For Each s In ActiveLayer.FindShapes(, cdrOutline)
   select case s.Outline.Color.Type
      case cdrColorPantone, cdrColorSpot, cdrDIC, cdrFOCOLTONE, _
           cdrHKS, cdrLab, cdrPANTONECoated, cdrPANTONECorel8, _
           cdrPANTONEHexCoated, cdrPANTONEHexUncoated, _
           cdrPANTONEMatte, cdrPANTONEMetallic, _
           cdrPANTONEPastelCoated, cdrPANTONEPastelUncoated, _
           cdrPANTONEProcess, cdrPANTONEUncoated, _
           cdrSpectraMaster, cdrTOYO, cdrTRUMATCH, 14

           If s.Outline.Color.Tint = 0 Then _
              If s.OverprintOutline = True Then _
                 s.OverprintOutline = False
   end select
Next

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