Macro - Placing a copy of single object in multiple Power Clips

Zyzio
over 5 years ago

Welcome. I would like to ask for help in writing a macro that duplicates the last selected object and places copies in separate PowerClips.

The loop should look like this:

.GetSize of first PowerClip object

duplicate the last previously selected object

make size of copied object same as first Powerclip

place the copied object do the first PowerClip

and the same loop for other powek clips

I would be grateful for your help :)

Parents
No Data
Reply
  • +1 over 5 years ago

    This works for me in a recent version of CorelDRAW. I don't know if there is anything that would need to be changed to make it work in X4.

    1. Select the PowerClips.

    2. Add the object to be duplicated to the selection.

    3. Run the macro.
    Sub dupe_to_powerclips()

Dim sToDupe As Shape
Dim sDupe As Shape
Dim sr As ShapeRange
Dim lngCounter As Long

    On Error GoTo ErrHandler
    ActiveDocument.BeginCommandGroup "Dupe to PowerClips"
    
    Set sr = ActiveSelectionRange
    
    Set sToDupe = sr(1)
    For lngCounter = 2 To sr.Count
        Set sDupe = sToDupe.Duplicate
        sDupe.SetSize sr(lngCounter).SizeWidth, sr(lngCounter).SizeHeight
        sDupe.AddToPowerClip sr(lngCounter), cdrTrue
    Next lngCounter

ExitSub:
    ActiveDocument.EndCommandGroup
    Exit Sub

ErrHandler:
    MsgBox "Error occured: " & Err.Description
    Resume ExitSub
End Sub

    In use, it looks like this:

    VIDEO: Dupe to PowerClips

    .

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.