Hi guys,

I am currently trying to figure out a way so that while clicking on a certain shape creates a duplicate of that shape. What I currently have is a Clone Me button which while clicking on it creates a duplicate of any selected cell, for that you have to select a shape first then click on clone me button to create a duplicate which could be achieved by ctrl+c and ctrl+v as well. I am looking for an easy way for this such that while clicking on a shape will create the duplicate of the shape. Attached is the code which I have:
Sub CreateDuplicate()
Dim oshp As Shape
On Error Resume Next
Set oshp = ActiveWindow.Selection.ShapeRange(1)
If Err Then Exit Sub
With oshp.Duplicate
.Left = oshp.Left
.Top = oshp.Top
End With
End Sub