View Single Post
  #3  
Old 14-12-2011, 10:42
ashishbindal93
Guest
 
Posts: n/a
Smile

oh really thanks shelby.It worked for me very well

but i have faced a new problem

when a user changes the color components from the fill property of an object manually then your script...

Sub MyColor()
Dim vColor As Variant,mcol As New Color

vColor = Split(ActiveShape.Fill.UniformColor.ToString, ",")

MsgBox "Mode: " & vColor(0) & " C: " & vColor(2) & " M: " & vColor(3) & " Y: " & vColor(4) & " K: " & vColor(5)

If vColor(0) = "CMYK" Or vColor(0) = "CMYK100" Then
mcol.CMYKAssign vColor(2), vColor(3), vColor(4), vColor(5)
end if
End Sub

msgbox...

CMYK100,USER,0,340,150,80

creates an error as the color model changes to CMYK100 and the c,m,y,k values have gone beyond '100'.The CMYKAssign cannot assign the values

Please help me out with this!
Thanks in advance

Last edited by ashishbindal93; 14-12-2011 at 10:46.
Reply With Quote