convert each page to bitmap - not export

RunFlaCruiser said:

Hi.

This will do it but you'll have to adjust the parameter of the bitmap conversion function. Easy to do with a simple record macro.

Record a macro with desired convert to bitmap option on a selected item of any page, and switch out the line part:

         ConvertToBitmapEx cdrRGBColorImage, False, False, 150, cdrNormalAntiAliasing, True, False, 95

with the recorded part

Here's the macro.

 

Sub pagesToBitmap()
    Dim p As Page, sr As ShapeRange, s As Shape
   
    For Each p In ActiveDocument.Pages
        p.Activate
        Set sr = ActivePage.Shapes.All
        If sr.count > 0 Then
            Set s = sr.Group
            s.ConvertToBitmapEx cdrRGBColorImage, False, False, 150, cdrNormalAntiAliasing, True, False, 95
        End If
    Next p
End Sub

 

~John

 

signcoartdtp said:

you are fantastic.

The cool but simple thing about this code, a fun little learning  tip.

Notice how we take all items on the page by setting and object which we declared as sr

Set sr = ActivePage.Shapes.All

And we convert all of this into a single shape, while grouping at the same time.

Set s = sr.Group

Now we can simply  reference  s as a single shape and use most functions and properties for a shape!

Cool!

~John

RunFlaCruiser said:

This will do it but you'll have to adjust the parameter of the bitmap conversion function.

Some ideas

1. have export to PDF code built in also,
2. revert shapes back to vectors automatically so user doesn't accidentally save their master CDR as bitmaps.