V-Форум / Corel VBA / Тема: Макрос для установки/отмены оверпринта

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

 22/02/2008 10:20:26 #Link

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

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

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

 22/02/2008 10:49:54 #Link

Цитата:
Да без разницы, главное, чтобы всё работало и спрашивающие были удовлетворены не только желудочно! :-)))
Как там у классиков?..
"Он был без сознания, но сразу пришел в себя и, открыв глаза, осведомился:
- Где я?
Быков облегченно улыбнулся, а Богдан серьезно сказал:
- В "Мальчике". "Мальчик" - это такой транспортер...
- К черту подробности! На какой планете?"(Стругацкие А. и Б. Страна багровых туч).
:-)))

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

 22/02/2008 10:56:03 #Link

ясно, я тож так уиею

« 1 (2)