I want to make a condition in function of existing or non existing of registration shapes on one page, and if none the macro should do something
My code is:
nrreg = ActivePage.Shapes.FindShapes(Query:="@fill.color.name = '100% Registration Color'").Count
If nrreg = 0 Then GoTo 888
The problem is that the macro do not find any of the registration objects even if they exists
most likely you are incorrectly forming a CQL query.
nrreg = ActivePage.Shapes.FindShapes(Query:="@fill.color = 'REGCOLOR,USER,100,00000000-0000-0000-0000-000000000000'").Count