Is there some macro, script, add-in to resample all bitmaps in a document to a desired resolution and color mode ?
Yes there is . wOxxOm Tools
This macro is an option. http://macromonster.com/index.php?mod=descr&id_desc=2
Other way is: publish to PDF X/3, change settings of bitmap resolution, then open the PDF and save as CDR
Upodate
- The woxom tool resample doesnt work well with all images. For example gives heavily jagged edges on Images with transparency. Useless.
- The PDF X/3 only can make CMYK images (and not RGB) while the pdf file opened in coreldraw wont retain its full cdr editability (effects symbols etc)
Hi.
I do this sometimes with a tiny script. Sure helps when I scan or import pictures from a camera and I want the document size smaller.
Sub resample1() Dim sr As ShapeRange, p As Page, s As Shape For Each p In ActiveDocument.Pages p.Activate Set sr = ActivePage.Shapes.FindShapes(, cdrBitmapShape) For Each s In sr s.Bitmap.resample , , , 200, 200 Next s 'sr.Move 0, 0.4 Next pEnd Sub
~John