View Single Post
Old 13-05-2003, 08:45
Rick Randall
Posts: n/a
Default How do you switch Bitmap modes in CorelDraw 10 VBA?

I have a macro for CorelDraw 11 but I need it to work in Corel 10 also. This part of the macro won't work in version 10:

Private Function GreyAllBMPS()

Dim bmp As Bitmap
Dim sh As Shape

For Each sh In ActiveDocument.ActivePage.Shapes
If sh.Type = cdrBitmapShape Then

    If sh.Bitmap.Mode <> cdrGrayscaleImage Then
        sh.Bitmap.ConvertTo cdrGrayscaleImage
    End If
End If

Next sh

End Function

Does anyone know how to do the same thing for CorelDraw 10?
Reply With Quote