CQL Query Question!

LeiItUp
over 8 years ago

So I've finally decided to jump into the CQL Query pool and I'm amazed at it's speed.  I like it!!! [:D]So I'm going through my code and simplifying it with CQL where ever it can be applied.   I'm stuck on one area.  I know how to query for a specific size and height but I'm confused a s to how to get the height from the selected shape.  I tried storing the height and width of the shape in a variable but I kept getting an error.  I also tried converting it into a string but that failed as well.  Any help would be grealty appreciated.

Thanks

Lei

Parents
  • 0 over 8 years ago

    Try following code - finds all shapes with same height (incl.units) and duplicate them on x+100, y+100

    Sub Macro1()
    Dim sr As ShapeRange
    ActiveDocument.Unit = cdrMillimeter
    sh = ActiveSelection.SizeHeight
    Set sr = ActivePage.Shapes.FindShapes(Query:="@height =  {" & sh & "mm" & "}")
    sr.Duplicate 100, 100
    End Sub

    Best regards

    Mek

Reply Children

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.