Select the largest shape in page?

sorin12003
over 5 years ago

Hi. Does anybody know how to select the largest shape in page?

The problem is the following: I have many shapes within a large rectangle and also some shapes outside the same rectangle.

I want the macro to identify the largest shape in page (the rectangle in this case) and, based on its coordinates, to select all the shapes within the rectangle and group them alltogheter.

Thank you very much!

Parents
  • +1 over 5 years ago

    Instead of looping through each shape, you could use a little CQL to sort the shapes by the area. Then select the first shape which will be the largest. Here is an example:

    Sub SelectByLargestArea()
    Dim sr As ShapeRange
    Dim sLargest As Shape
    
    Set sr = ActivePage.Shapes.All
    sr.Sort "@shape1.com.DisplayCurve.Area > @shape2.com.DisplayCurve.Area"
    
    Set sLargest = sr.FirstShape
    
    sLargest.CreateSelection
End Sub

    Happy Coding,

    -Shelby

Reply Children
No Data

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