Thom: from Joel Look at the code I sent. You will see .top and .left to
indicate how the object gets referenced to the cell location.

"Thomp" wrote:

On Feb 15, 10:40 am, "Bob Phillips" wrote:
What do you mean by paste to the cell below. The top left corner of the
pasted shape overlaps cell F9, at least in my testing it does.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Thomp" wrote in message

ups.com...



I know nothing about VBA programming so this may be simple for most.
I am trying to create a macro that once I click on the autoshape it
will copy and paste the object in the cell which I have select or
have
the pointer on. I can make it copy and paste to the cell below but
can't figure out how to make it paste to my active cell. I also
really
need in to delete the current autoshape that is in the cell.

thanks in advance

Here is the code

Range("F9").Select
Selection.ClearContents
ActiveSheet.Shapes("AutoShape 7").Select
Selection.Copy
Range("F9").Select
ActiveSheet.Paste- Hide quoted text -

- Show quoted text -

I just got part of it to work. It now copies and pastes to my active
cell but my only problem now is that there is an object or shape
already in the cell and I need to delete it first before I paste the
new object into cell

One important point the object name ("Autoshape 42") will change every
time so the code can't look for it by name but rather by the fact I am
in that active cell before I run the macro

thanks,
Bill
Here is the new code

ActiveCell.Select
Selection.ClearContents
ActiveSheet.Shapes("AutoShape 7").Select
Selection.Copy
ActiveCell.Select
ActiveSheet.Paste