how to chose the shape with cmyk and name it

[Paul_Hossler]

I don't use Corel, but I'd guess something like these

Function CMYKtoRGB(C As Single, M As Single, Y As Single, K As Single) As Long
    Dim R As Long, G As Long, B As Long 
    C = (C * (1 - K) + K) 
    M = (M * (1 - K) + K) 
    Y = (Y * (1 - K) + K) 
    R = (1 - C) * 255 
    G = (1 - M) * 255 
    B = (1 - Y) * 255 
    CMYKtoRGB = RGB(R, G, B)
End Function

if s1.fill.uniformcolor = CMYKtoRGB (0, 0, 70, 0) then
  s1.name = "shape1"
 end if