Search in Powerclip

saraconor
over 1 year ago

Dim s As Shape

ActiveLayer.Shapes.All.CreateSelection
For Each s In ActiveSelection.Shapes.FindShapes
If s.Type = cdrMeshFillShape Then
Set s1 = s.ConvertToBitmapEx(cdrCMYKColorImage, False, True, 200, cdrNormalAntiAliasing, True, False, 95)
End If
Next

This macro search all meshes and make it bitmap, but not in powerclips, so how to do this with powerclip in document?

Parents
No Data
Reply
  • over 1 year ago

    Dim pwc As PowerClip, OM As ShapeRange, AM As Shape, s As Shape, g As Shape
    ActiveDocument.BeginCommandGroup
    'Optimization = True
    ActivePage.Shapes.FindShapes(Query:="!@com.powerclip.IsNull").CreateSelection 
    End
    For Each s In ActiveSelection.Shapes
    Set OM = s.PowerClip.ExtractShapes
    OM.UngroupAll
    For Each g In ActiveSelection.Shapes
    Set AM = g.ConvertToBitmapEx(cdrCMYKColorImage, False, True, 200, cdrNormalAntiAliasing, True, False, 95)
    AM.AddToPowerClip s, cdrFalse
    Next
    Next
    'Optimization = False
    ActiveDocument.EndCommandGroup
    ActiveDocument.ClearSelection
    ActiveWindow.Refresh
    End Sub

    This work almost fine, but i need to ungroup all objects

    Is there has a way to save group structure?

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.