Hi Jan,
You do not need VBA for this:
Click on CTRL (and keep it depressed);
Select your object (Left click on it as usual);
Drag it to where you want the copy to be;
Release the left mouse button;
Release CTRL;
You now have a copy of the original (which is still located at its original
position).
(By the way, this is a standard command in Windows, e.g., you can copy files
or folders from the Windows Explorer this way, you can duplicate a range of
cells in Excel, etc.)
With a macro, play around with this code if you feel you absolutely need a
macro:
Selection.ShapeRange.Duplicate.Select
Selection.ShapeRange.IncrementLeft 25#
Selection.ShapeRange.IncrementTop 25#
(Which will not work if the picture is inline.)
--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site:
http://www.word.mvps.org
Jan Pott said:
Hi, as a translator I have worked with CorelDraw and leaving alone the
value of the suite, I must say that I always liked one feature that I have
not come across elsewhere: after selecting any item and dragging it to a new
position, pushing the right mouse button before releasing the left button
will indicate that you do not just wish to move the item, but in stead wish
to paste a copy of the original at the new position. I've been searching VBA
for events, event handling, onMouse etc., but I feel defeated. I have the
feeling that it should be fairly easy to write code that will do the same in
Word, but i found no clue so far. Can anybody help me with this? Thank you.