Group Objects with Macro

yinkajewole
over 4 years ago

I want to group all objects in a page. I used this code:

Sub Group()

Set sr = ActivePage.Shapes.All
sr.group

End sub

The problem I have is that it group guides along with the object. I don't want the guides the be grouped with it

Parents
No Data
Reply
  • 0 over 4 years ago

    You can do a lot with FindShapes and CQL.

    Exclude guideline shapes:

    ActivePage.Shapes.FindShapes(, , False, "@type != 'guideline'")

    Exclude shapes on special layers and shapes on master layers:

    ActivePage.Shapes.FindShapes(, , False, "@com.Layer.IsSpecialLayer = 'False' and @com.Layer.Master = 'False'")

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.