нужен макрос - конверсия битмапов в CMYK

[BackDoorSanta]

Товариши допечатники, а нет такого экшена, чтобы находить в файле битмапы отличные от CMYK и конвертировать их в CMYK, а то бывает сотня мелких битмапов и по каждому надо тыкать мышкой и Mode-Bitmap-CMYK делать.

 

[banIDit]

Ответ: Очень нужен макрос

...чтобы находить в файле битмапы отличные от CMYK и конвертировать их в CMY...

Пожалуй, проще отстроить CMS как следует, а потом проставлять нужные галки при экспорте/печати/publish to pdf...

 

[BackDoorSanta]

Ответ: Очень нужен макрос

Ну а если мне нужно в TIFF экспортировать? Эти способы не прокатят.

 

[banIDit]

Ответ: Очень нужен макрос

Сам хоть пробовал?

 

[BackDoorSanta]

Ответ: Очень нужен макрос

Что пробовл, мне именно в Тифф по работе нужно экспортироват, приходится кажды битмап отдельно выделять и Mode-Bitmap-CMYK делать. Из-заэтого и спрашиваю.

 

[Asmussen]

Ответ: Очень нужен макрос

Что пробовл, мне именно в Тифф по работе нужно экспортироват, приходится кажды битмап отдельно выделять и Mode-Bitmap-CMYK делать. Из-заэтого и спрашиваю.

При экспорте в тиф есть установка Color-mode, там можно выбрать CMYK.

 

[BackDoorSanta]

Ответ: Очень нужен макрос

Ну это понятно, я что совсем чтобы в RGB экспортировать? Только вот если вы этим попробуйте воспользоваться предварительно не переведя в Кореле все битмапы в CMYK, увидите какими тусклыми и неправильными они будут в том тифе который получится. Из-за этого и спрашиваю - нет ли макроса переводящего все битмапы в CMYK?

 

[Asmussen]

Ответ: Очень нужен макрос

Из-за этого и спрашиваю - нет ли макроса переводящего все битмапы в CMYK?

Вроде бы результат должен одинаковый быть, что в Кореле забитмапить, что экспортировать?
Ну да ладно, макрос у меня есть такой. Ищет все битмапы отличные от CMYK, Grayscale и B&W, это подойдет?

 

[BackDoorSanta]

Ответ: Очень нужен макрос

Да, конечно подойдет, он их только ищет или конвертит еще? Буду превелико благодарен.

 

[kerch]

Ответ: Очень нужен макрос

Эх... Давно это было...
Как-то так

' 26 апреля 2004 года.
Sub Bitmap()
 ProcessShapes ActivePage.Shapes
MsgBox "Процедура завершена"
End Sub

Sub ProcessShapes(ss As Shapes)
 Dim s As Shape
 For Each s In ss
 If s.Type = cdrGroupShape Then
 ProcessShapes s.Shapes
 ElseIf s.Type = cdrBitmapShape Then
 If s.Bitmap.Mode = cdrRGBColorImage Then
 On Error GoTo l1:
 s.CreateSelection
 ActiveSelection.ConvertToBitmapEx cdrCMYKColorImage, False, True, 300, cdrNormalAntiAliasing, True
l1:
 End If
 End If
 Next s
End Sub

 

[BackDoorSanta]

Ответ: Очень нужен макрос

Огромное спасибо. А можно как-нибудь присвоить макросу сочетание клавиш? И еще поставил два RGB битмапа в пустой файл запустил экшн, он делал 14 сек, вручною же, если делать через Mode-Bitmap-CMYK это занимает секунд 5. Над чем он задумывается?

 

[kerch]

Ответ: Очень нужен макрос

Как зацепить на хоткей - ищи на форуме.
На счет 14 секунд... Я им ща непользуюсь, а разбираться некогда.

 

[Asmussen]

Ответ: нужен макрос - конверсия битмапов в CMYK

Как назначить клавиши подробно описано, например, у уважаемого тов. wOxxOm на сайте. Там применительно к его проекту, но также делается и для любых др.
http://recent.tekcities.com/installtutor/installtutor.html

Задумывается может быть при первом запуске только? VBA дожно еще загрузиться, а так вроде дольше времени занимать не должно.

 

[PressMAN]

Ответ: нужен макрос - конверсия битмапов в CMYK

Как вариант.
Конвертит все RGB bitmap во всем документе в CMYK (dpi не меняет)

Private Sub RGB_to_CMYK()
Dim s As Shape
Dim I As Integer
Dim All, AllRGB As Integer

All = 0
AllRGB = 0
For I = 1 To ActiveDocument.Pages.Count
    For Each s In ActiveDocument.Pages(I).Shapes.FindShapes(, cdrBitmapShape)
        All = All + 1
        If s.Bitmap.Mode = cdrRGBColorImage Then
           s.Bitmap.ConvertTo cdrCMYKColorImage
           AllRGB = AllRGB + 1
        End If
    Next s
Next I
MsgBox "Всего в документе " & All & " Bitmap" & Chr(13) _
      & "из них " & AllRGB & " конвертирован(ы) в CMYK"
End Sub

 

[rdes02]

Ответ: Очень нужен макрос

Только вот если вы этим попробуйте воспользоваться предварительно не переведя в Кореле все битмапы в CMYK, увидите какими тусклыми и неправильными они будут в том тифе который получится.

ничего подобного... возможно вы не применяете профиль для экспорта в тифф цмик.
Специально попробовал >>
слева файлы ргб конверчены в цмик битмап в корел
справа сразу экспорт ргб картинок в цмик тифф

 

[BackDoorSanta]

Ответ: Очень нужен макрос

Да, не замарачиваюсь с профилями в кореле. Ну все равно же это глюк. Цвета битмапов тускнеют, всегда. rdes02 а какой у вас профиль в кореле был выставлен? Сделайте снэпшот окн Color manadgemnt в кореле.