trap copy and paste

[perry59]

I am using the application.isinscope function to trap copy and paste events and for the most part it works fine. There is one event I can't seem to find though and that is for when a user holds down the control button and drags a shape to copy it. I thought it might be the visCmdUFEditDuplicate constant, but that's not doing the trick.
The following two snippets work as expected:

Code Select Expand

If Globals.ThisAddIn.Application.IsInScope(1022) = True Then 'visCmdUFEditPaste
  MsgBox("pasted " & shapeName)
End If
If Globals.ThisAddIn.Application.IsInScope(1246) = True Then 'visCmdDropOnPage
  MsgBox("dropped " & shapeName)
End If

This one never gets called: (what does it do?)

Code Select Expand

If Globals.ThisAddIn.Application.IsInScope(1024) = True Then 'visCmdUFEditDuplicate
  MsgBox("duplicated " & shapeName)
End If

anyone know how I can catch it when a user copies a shape by selecting one on the page, holding CTL and dragging it?
Thanks
Perry

[perry59]

I found this works for copying via drag:

Code Select Expand

'copy by dragging
If Globals.ThisAddIn.Application.IsInScope(1184) = True Then 'visCmdDragDuplicate
    MsgBox("drag duplicated " & shapeName)
End If