Macro for positioning and copying object side by side.

Sub Macro1()
Dim OS As ShapeRange, nc As Integer, w#, dup As ShapeRange
Set OS = ActiveSelectionRange
ActiveDocument.BeginCommandGroup "duplicate_object"
nc = InputBox("Enter required number of copies of selected object")
w = OS.SizeWidth
Optimization = True
For i = 1 To nc
Set dup = OS.Duplicate
dup.Move (i * w), 0
Next i

ActiveDocument.endCommandGroup 

Optimization = False
ActiveWindow.Refresh
End Sub

Hi Mek,

This again is an interesting Macro but the only thing is I dont want it to ask for the no. of copies. I want it to juct copy one and then select the other one and then copy another one (When the macro is repeated) . Like for eg. if I set the shortcut key for this macro as ctrl+R , when I press ctrl+R, it should copy the selected object and select the duplicated object , when I press ctrl+R again, it should copy that object and select the third one and so on . So If I want 4 copies of an object , I shall press ctrl+R 4 times.

Ok, then try this

Thanks Mek, It works great. It copies like I want to right. what do I need to change in the code to copy the object to the left, bottom or top.

Sub DupAndFlipHzRight()

   ' Recorded 9/19/2013

   Dim OrigSelection As ShapeRange

   Set OrigSelection = ActiveSelectionRange

   Dim dup1 As ShapeRange

   Set dup1 = OrigSelection.Duplicate

   ActiveDocument.ReferencePoint = cdrMiddleRight

   dup1.Stretch -1#, 1#

   dup1.OrderToFront

   dup1.Flip cdrFlipHorizontal

   OrigSelection.RemoveFromSelection

End Sub

Sub DupAndFlipVertDown()

   ' Recorded 9/19/2013

   Dim OrigSelection As ShapeRange

   Set OrigSelection = ActiveSelectionRange

   Dim dup1 As ShapeRange

   Set dup1 = OrigSelection.Duplicate

   ActiveDocument.ReferencePoint = cdrBottomMiddle 'change to cdrTopMiddle to dup up

   dup1.Stretch 1#, -1#

   dup1.OrderToFront

   dup1.Flip cdrFlipVertical

   OrigSelection.RemoveFromSelection

End Sub

Thanks Myron. This is perfect except that I added one line from Mek's Code - "dup1.CreateSelection" . Thanks Mek and Myron. You have been of great help.