【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

标签：CMYK,VBA,End,Sub,Bitmap,010,cdrCMYKColorImage,位图
来源： https://www.cnblogs.com/ExcelSoSo/p/15596663.html