HELP! нужен скриптик

[Evgeniy R.]

Клиент прислал макет кореловский с кучей маленьких битмапчиков в РГБ распиханых везде где не попадя.
Вопрос к людям кто может написать скриптик (так как сам дуб в этом)?
Возможно это решить при помощи скрипта!
Если да то может его ктонибуть написать ПЛИЗ я так думаю не только мне пригодится.

Заранее сенк.

 

[fy]

Ответ: HELP! нужен скриптик

http://forum.rudtp.ru/showthread.php?t=8344

 

[Evgeniy R.]

Ответ: HELP! нужен скриптик

Сенк за сылочку, прога полезная.
Но вот слишком много движений лишних получается, все экспортнул потом обратно по штучно.
Тем более витмапы могут находится на разных слоях и потом если их большое количество легко что то напутать.

Я имел ввиду скриптик каторый в масовом порядке
выполнял бы функцию Bitmaps\Mode\CMYK color

 

[fy]

Ответ: HELP! нужен скриптик

Сейчас не получится. Работы полно.
У нас битмапы всегда проверяются на соответствие требованиям, а значит открываются в Photoshop, поэтому мне и в голову не приходило делать просто конвертирование.

 

[silverg]

Ответ: HELP! нужен скриптик

Просто перевести из RGB в CMYK можно через Правка -> Найти растровые объекты RGB -> Найти все. Потом Растровые изображения -> режим CMYK. Ну это, конечно, если не критично...

 

[Evgeniy R.]

Ответ: HELP! нужен скриптик

Разом все выделеные Корел не дает перевести в другую модель.

 

[kerch]

Ответ: HELP! нужен скриптик

Макрос был написан на скорую руку и для единоразового использования.
------------------------------------
Sub Bitmap()
MsgBox "Поиск RGB Bitmaps с последующей конвертацией в CMYK, 300 dpi", vbOKOnly
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
If MsgBox("ПРОДОЛЖИТЬ?", vbYesNo, "Найдены объекты в группах!") = vbYes Then
ProcessShapes s.Shapes
Else
Exit Sub
End If
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
-------------------------------------------

 

[Evgeniy R.]

Ответ: HELP! нужен скриптик

Сенк работает!
вот только сохранить бы его в виде *.gms
дабы через "play" его использовать можно было.