Convert any object in document into bitmap

Hi,

i want to convert each object-group in document (*.cdr) into a bitmap with only one click. How does it work? Can you help me?

thomas

[shelbym]

Draw will only convert your selection, if you want to convert the entire page and have each shape your own bitmap you need to write a little code. The code below will convert each shape on the active page to a 300 dpi RGB bitmap. Change the settings to fit your needs.

Sub ConvertShapesToBitmap()
    Dim s As Shape
    
    For Each s In ActivePage.Shapes
        If s.Type <> cdrBitmapShape Then
            s.ConvertToBitmap cdrRGBColorImage, False, False, False, 300, cdrNormalAntiAliasing, False
        End If
    Next s
End Sub

Best of luck,

-Shelby

Hello Shelby,

thank you very much for your answer and the code. That is greatly! I am very surprised, what one (you) can automate with so few text lines.
Thank you once again!!

Best greetings from Germany
Thomas