How do I move objects from all layers into selection?

RoyBrewer
over 4 years ago

I can select all objects in current layer with the following

                 ActiveLayer.Shapes.All.AddToSelection

but,  how do I loop through all layers and add their shapes to Selection?

Parents
No Data
Reply
  • over 4 years ago

    Depending on the content you are trying to access, you might use ActivePage.Shapes.FindShapes().

    FindShapes can be recursive (dig into groups) or non-recursive, and you can use a CQL query to exclude specific content (e.g., guidelines, shapes on specific layers, shapes on locked layers, etc.).

    So something such as this:

    Sub select_stuff()
Dim sr As ShapeRange

    Set sr = ActivePage.Shapes.FindShapes(, , False, "@type != 'guide' and @com.layer.isguideslayer = 'False' and @com.layer.isdesktoplayer = 'False'")
    sr.CreateSelection
End Sub
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.