Need this macros in GMS

Hi,

I need this macro to work with any document i created in RGB to CMYK with any shape & any RGB Bitmap pic. This is macro I created but it should work with other document which may be additional figures may contain or too may RGB images may be there but they should converted to CMYK so what the next procedure? If any body explain it will be helpful for me. And also Same macro pl provide with edited info.

Thanks

 

Sub RGBToCMYK()
' Recorded 10/27/2012
ActiveLayer.Shapes(1).Bitmap.ConvertTo cdrCMYKColorImage
ActiveLayer.Shapes(2).Fill.UniformColor.CMYKAssign 0, 95, 3, 0
ActiveLayer.Shapes(3).Fill.UniformColor.CMYKAssign 53, 100, 15, 2
ActiveLayer.Shapes(4).Fill.UniformColor.CMYKAssign 49, 5, 67, 0
ActiveLayer.Shapes(2).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(3).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(4).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
End Sub