VBA Adjust All Shape In Sheet To Same Position In Cell

[Lewzerrrr]

Hi,

Is there a way to adjust all shapes in a worksheet to the exact same position?

So a manual way would be if I have 10 shapes in sheet1 in different cells between A1:B20, I would manually click each one and alt drag it to the top left of the cell it resides in. How Can I produce this through a macro and add an incrementtop and incrementleft?

Thanks,

 

[Lewzerrrr]

Sorry not near a computer to test this but would it be something (just going off a whim) like:

for each sh in shape

TL = sh.topleftcell.address

With sh
.cut
.paste = TL
.top = TL
.width = 80
.height = 100
.incrementtop = 8
.incremeentleft = 20
end with

next sh