I still work with X3. I read that X3 has cql query as a new feature. So I try:Set sr = ActivePage.Shapes.FindShapes(Query:="@fill.color.cmyk[.c=0 and .m=24 and .y=47 and .k=45]")and I tried:Set sr = ActivePage.Shapes.FindShapes(Query:="@fill.color.cmyk (0,24,47,45)")But no matter what I try the shaperange contains all objects on the page.The old school findshapes does work: Set sr = ActivePage.Shapes.FindShapes(Type:=cdrTextShape)Please help me, I want to use the query.
I have X8. the first one like: [.c = 0 and .m = 24 and .y = 47 and .k = 45]work goodAlso workSet SR = ActivePage.Shapes.FindShapes(Query:="@fill.color = cmyk(" & 0 & "," & 24 & "," & 47 & "," & 45 & ")")As Mek's link
I guess this is about me using X3. Cannot find any information on that and I get no error code...Set sr = ActivePage.Shapes.FindShapes(Query:="@fill.color.cmyk[.c=0 and .m=24 and .y=47 and .k=45]")I still get a shaperange containing all objects on the page.Or should I use .CreateSelection after the code?Set sr = ActivePage.Shapes.FindShapes(Query:="@fill.color.cmyk[.c=0 and .m=24 and .y=47 and .k=45]").CreateSelectionThat would be strange, since I don't have to do that here : Set sr = ActivePage.Shapes.FindShapes(Type:=cdrTextShape)
correctly works as next Dim SR As ShapeRange Set SR = ActivePage.Shapes.FindShapes(Query:="@fill.color.cmyk[.c=0 and .m=0 and .y=0 and .k=100]") SR.CreateSelection And also Set SR = ActivePage.Shapes.FindShapes(Type:=cdrTextShape) SR.CreateSelectionTaras
Okay, I'll try.