【CorelDraw VBA 010例】位图转CMYK

Sub BitmapsToCMYK()
    '## 位图转CMYK
    Dim s As Shape
    For Each s In ActivePage.Shapes.FindShapes(Type:=cdrBitmapShape)
        If s.Bitmap.Mode <> cdrCMYKColorImage Then
            s.Bitmap.ConvertTo cdrCMYKColorImage
        End If
    Next s
End Sub