convert image into powerclip

atekdigital
9 months ago

Im looking for any Macro which can convert image into powerclip. If i select an image it should create a vector boundary around the image and insert inside the shape (powerclip). Anyway or help to create the Macro. I tried to record the macro but it did not work. Thanks

Parents
No Data
Reply
  • 9 months ago

    try this

    Sub ImageAsPowerclip()
    Dim sr As ShapeRange, s As Shape, x#, y#, w#, h#
    Dim nsr As ShapeRange
    ActiveDocument.BeginCommandGroup "ImageAsPowerclip"
    Optimization = True
    Set sr = ActiveSelectionRange
    If sr.Count = 0 Then Exit Sub
    ActiveDocument.Unit = cdrMillimeter
    For Each s In sr
    s.GetBoundingBox x, y, w, h
    s.CreateBoundary x, y, True

    ActiveSelection.Outline.SetNoOutline

    s.AddToSelection

    Set nsr = ActiveSelectionRange

    nsr.Shapes(1).AddToPowerClip nsr.Shapes(2), cdrTrue

    Next s
    Optimization = False

    ActiveWindow.Refresh
    ActiveDocument.EndCommandGroup
    End Sub

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.