Требуется макрос чтобы выравнять разрешение у всех картинок на странице. Corel X5

[zmeionline]

Добрый день!

Прошу прощеня, вопрос наверное уже поднимался и неоднократно. Нужен макрос, который бы позволял сделать автоматически следующую операцию:

поиск растровых изображений по очереди -> битмапирование каждого растрового изображение с определенными параметрами (например 300 dpi, со сглаживанием и прозрачным задним фоном).

Если будет возможность еще и выбора каких именно изображений (RGB, CMYK) то вообще замечательно.

Рассматриваются бесплатные варианты.

 

[_MBK_]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

поиск растровых изображений по очереди -> битмапирование каждого растрового изображение

В смысле - они ж и так уже битмапы?

Dim gb As ShapeRange
Dim s As Shape
Set gb = ActivePage.FindShapes(, cdrcdrBitmapShape, True)

For Each s In gb
    s.Bitmap.ConvertTo cdrRGBColorImage
    s.Bitmap.Resample , , True, 600, 600
Next

Вот как то так

 

[zmeionline]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

В смысле - они ж и так уже битмапы?

Именно так! Просто у них разрешение допустим не 300x300, а 1234х4321 и они в RGB вместо CMYK, да еще и повернуты они на 59 градусов.

Вот как то так

Как его теперь использовать? Мне бы с интейфесиком, для удобства, если есть.

 

[_MBK_]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

да еще и повернуты они на 59 градусов

Тогда не так. Вот как:

Dim gb As ShapeRange
Dim s As Shape
Set gb = ActivePage.FindShapes(, cdrcdrBitmapShape, True)

For Each s In gb
    Dim s1 As Shape
    Set s1 = OrigSelection.ConvertToBitmapEx(cdrRGBColorImage, False, False, 300, cdrNormalAntiAliasing, False, False, 95)
Next

 

[zmeionline]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

Тогда не так. Вот как:

Нету ли готового скрипта с интерфейсом, позволяющего выбирать нужные параметры разрешения, цветовой модели и т.д.?

 

[_MBK_]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

Сейчас поищу, но навряд ли - макрос черезчур простой! А что там выбирать: если вместо RGB хотите CMYK то меняете cdrRGBColorImage на cdrCMYKColorImage, хотите разрешение другое - 300 меняете на какое надо!

 

[zmeionline]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

Сейчас поищу, но навряд ли - макрос черезчур простой! А что там выбирать: если вместо RGB хотите CMYK то меняете cdrRGBColorImage на cdrCMYKColorImage, хотите разрешение другое - 300 меняете на какое надо!

Ну просто с интерфесом удобнее было бы.

 

[_MBK_]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

Может, это?
http://cdrpro.ru/news/2010-10-16-279

Не совсем то. В принципе если делать будет нечего могу вначале менюшку прикрутить по быстрому. Вам что там надо - разрешение и цветность? Цветность - RGB, CMYK и Grayscale хватит?

 

[_MBK_]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

Ну вот что-то типа такого:
Посмотреть вложение ConvertBitmap.zip

 

[zmeionline]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

Ну вот что-то типа такого:
ConvertBitmap.zip

А как его в Х5 всунуть? :n)

 

[_MBK_]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

http://cdrpro.ru/news/2009-08-02-127

 

[zmeionline]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

http://cdrpro.ru/news/2009-08-02-127

В том и дело, что он в макросах почему то не появился! XPsp3, Corel X5sp2

 

[_MBK_]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

В том и дело, что он в макросах почему то не появился! XPsp3, Corel X5sp2

Тьфу точно забыл точку входа сделать. Вот так попробуйте:
Посмотреть вложение ConvertBitmap.zip
Tools-Macros-Run macro-Global macros(ConvertBitmap.gms)

 

[zmeionline]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

Тьфу точно забыл точку входа сделать. Вот так попробуйте:

Вот так вот заработало! Большое спасибо!!!

 

[zmeionline]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

Тьфу точно забыл точку входа сделать. Вот так попробуйте:
Посмотреть вложение 51016
Tools-Macros-Run macro-Global macros(ConvertBitmap.gms)

А нельзя ли туда добывать еще и выбираемые параметры из стандарного окошка Convert to Bitmap? Кстати при использовании скрипта произошел некоторый сбой - изображение поменялось... Что то не так.

 

[_MBK_]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

А нельзя ли туда добывать еще и выбираемые параметры из стандарного окошка Convert to Bitmap?

Которые?

Кстати при использовании скрипта произошел некоторый сбой - изображение поменялось...

Пришлите пример, посмотрю.

 

[_MBK_]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

Посмотреть вложение ConvertBitmap.zip
Вот примерно так?

 

[zmeionline]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

Вот примерно так?

Так ничего не поменялось вроде как!
У макроса есть серьезный недостаток - он делает задний фон битмапа непрозрачным! А делать прозрачным, где это не нужно, тоже не хотелось бы, поэтому желательно чтобы был выбор галочек прозрачности и сглаживания.
С выбором разрешения тоже немного не то: когда запускаешь макрос - разрешение 300, однако при желании поставить например 150 или 200, он тупо выбирает 600, нажатием backspace - 72 dpi, на 300 опять не вернуть (только перезапустить если) выбор только между 600 или 72.

 

[_MBK_]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

Посмотреть вложение ConvertBitmap.zip
Тьфу запутался во вложениях!

 

[zmeionline]

Ответ: Требуется макрос чтобы выровнять разрешение у всех картинок на странице. Corel X5

Тьфу запутался во вложениях!

У этого "Macro name" отсутствует, невозможно запустить!