how to chose the shape with cmyk and name it

sub rename()
dim lyr as layer
dim s1 as shape

for each s1 in lyr.shapes

if s1.fill.color = ??? then

s1.name = ???

end if

next

end sub


''''''''thanks

Office only works with the RGB colours. If you're starting with CMYK colours, you'll need to do a CMYK>RGB conversion, for which you could use a function like:

Code:

---

Function CMYKtoRGB(C As Single, M As Single, Y As Single, K As Single) As String
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 = "R: " & R & vbTab & "G: " & G & vbTab & "B: " & B
End Function

---

The following macro shows how the function might be used:

Code:

---

Sub Test()
MsgBox CMYKtoRGB(0, 0.498, 1, 0)
End Sub

---

Thank you for your help!
This code run in Coreldraw ,i try to write code like this:

if s1.fill.uniformcolor = "0 0 70 0" then
s1.name = "shape1"
end if

but there is no response.

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

Code:

---

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

---

Code:

---

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

---