Moving Shapes Incrementally

Hi,
I need some help writing a macro that will move a shape incrementally. For example, I have a rectangle that I want to move 10 pts to the right every time I run the macro. So, if I have a rectangle in Position 1, when I run the macro, it will move 10 pts to the right to Position 2. If I run the macro again, it will move another 10 pts to the right of Position 2, and so on.

Right now, I have a macro that will only move the rectangle to a permanently spot-- I can't seem to get it to move incrementally.

Can someone help me?

Thanks!
Jane

Hi,

try

Please Login or Register  to view this content.

HTH

Kris,
Out of curiosity why use the AlternativeText property if you're just going to store the Left value in it? It could be very confusing for a user if they move a shape manually in between iterations of that macro.

Good point.

this should suffice.

Please Login or Register  to view this content.

Thanks Kris!

One more question-- how can I get my macro to loop through all the worksheets in my workbook for the same main task below? I googled some macro codes but I haven't been able to find something that works-- below is a code I tried:

Please Login or Register  to view this content.

Replace Activesheet with ws in your code, and move the constant declaration to the start of your sub.

Note: when posting code, please use code tags as per the forum rules. I have added them for you on this occasion.

Then you don't have a shape called Rectangle1 on each sheet, so how should the code determine what to move?

Do ALL the sheets have this rectangle?

Glad to help.

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save