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

 

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.