Move shape on worksheet without selecting it.

rpaulson · Feb 28, 2011

Hello all,

Code:

     ActiveSheet.Shapes("Group 129").Select
    Selection.ShapeRange.IncrementLeft 150

The above code works. But I would like to move it without selecting it.

Code below yields a runtime 438 error

Code:

ActiveSheet.Shapes("Group 129").ShapeRange.IncrementLeft 150

Thanks for looking at it,

Ross

Domenic · Feb 28, 2011

Try...

Code:

ActiveSheet.Shapes("Group 129").IncrementLeft 150

rpaulson · Feb 28, 2011

Worked - Thanks