Hello,
Our preproduction team are having issues with different blacks in a file before print. We want to be able to run a macro that can go through a file and change all 100% black objects/ outlines etc from C:100 M:100 Y:100 L:100 to C:0 M:0 Y:0 K:100.
Is this something to record myself or does it need a written script?
By shortcut i mean a keyboard shortcut - I.e. ctrl+shift+B
You could dig in to the code and set that up (code is open), or just press the existing button.
Myron said:Set sr = ActivePage.Shapes.FindShapes(Query:="@outline.color.cmyk[.c=75 and .m=68 and .y=65 and .k=90]")
Please don't mind me asking...Why did you put sr.AddToSelection before this line? Shouldn't it be ActiveSelectionRange.RemoveFromSelection ?I'm trying to understand your code: every time there's a FindShapes and then sr.ApplyUniformFill. I just don't understand why you use sr.AddToSelection and sometimes ActiveSelectionRange.RemoveFromSelection. Or does this selection prevent finding earlier found shapes again?Wouldn't this be simpler? :Set sr = ActivePage.Shapes.FindShapes(Query:="@fill.color.cmyk[.c=100 and .m=100 and .y=100 and .k=100]")sr.ApplyUniformFill CreateRGBColor(0, 0, 0)Set sr = ActivePage.Shapes.FindShapes(Query:="@fill.color.cmyk[.c=45 and .m=45 and .y=45 and .k=100]")sr.ApplyUniformFill CreateRGBColor(0, 0, 0)o
Because I'm not a true "coder" I'm more of a hack. I put together codes from others etc. If it doesn't work the way I'm wanting I just keep hacking until I get it. Yes, there are much simpler ways. I appreciate you pointing that out.