macro help - please

Hi all
I do not know about scripting in coreldraw.  Can anybody help me in the below
script to include duplicate command so that object should move along with duplicate.

Please help me 

Love you all 

Sub MoveUp()
    ActiveDocument.Unit = cdrMillimeter
    y = ActiveSelection.Shapes(1).SizeHeight
    ActiveSelection.Move 0, y
End Sub

 

Sub MoveDown()
    ActiveDocument.Unit = cdrMillimeter
    y = ActiveSelection.Shapes(1).SizeHeight
    ActiveSelection.Move 0, -y
End Sub

Sub MoveLeft()
    ActiveDocument.Unit = cdrMillimeter
    x = ActiveSelection.Shapes(1).SizeHeight
    ActiveSelection.Move -x, 0
End Sub

Sub MoveRight()
    ActiveDocument.Unit = cdrMillimeter
    x = ActiveSelection.Shapes(1).SizeHeight
    ActiveSelection.Move x, 0
End Sub

Parents Reply Children