CQL Query Question!

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

Top Replies

Mek over 8 years ago +1 verified

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...

0 Mek 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
Cancel
Up +1 Down

Reply

Reject Answer

Cancel
0 LeiItUp over 8 years ago in reply to Mek

Thanks Mek. This is similar to what i tried. I set a variable to the size and height of the selected shape. Using
h = s.SizeHeight
w = s.SizeWidth
My error was creating the proper syntax in between the braces { }.

Thanks again!!
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Mek over 8 years ago in reply to LeiItUp

You're welcome, M.
Cancel
Up 0 Down

Reply

Verify Answer

Cancel