CorelDRAW vba cdr插件 图片颜色转CMYK 或 RGB

Sub Test() 
 Dim s As Shape 
 For Each s In ActivePage.Shapes 
  If s.Type = cdrBitmapShape Then 
   If s.Bitmap.Mode <> cdrRGBColorImage Then  
    s.Bitmap.ConvertTo cdrRGBColorImage 
   End If 
  End If 
 Next s 
End Sub