Ungroup in powerclip

Charlie
over 2 years ago

How to ungroup all in all pages including inside powerclip?

Parents
  • +1 over 2 years ago

    Assuming that you want to keep the ungrouped shapes inside the powerclip you could do something like this:

    Sub UngroupItAll()
    Dim p As Page
    Dim sr As ShapeRange, srPowerclipShapes As ShapeRange
    Dim s As Shape
    
    For Each p In ActiveDocument.Pages
        p.Shapes.All.UngroupAll
        
        Set sr = p.Shapes.FindShapes(Query:="!@com.powerclip.IsNull")
        
        For Each s In sr.Shapes
            Set srPowerclipShapes = s.PowerClip.ExtractShapes.UngroupAllEx
            srPowerclipShapes.AddToPowerClip s
        Next s
    Next p
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.