How to move a shape without selecting it?

How can I move any shape in a sheet without selecting it?

If I use:

 ActiveSheet.Shapes.Range(Array("Picture 18")).Select Selection.ShapeRange.IncrementLeft -76" 

it appears an edition border around the shape.

2 Answers

ActiveSheet.Shapes("Picture 18").IncrementLeft -76 

Application.ScreenUpdating = False Set s = Worksheets("sheet1").Shapes(1) s.Left = 100 Application.ScreenUpdating = True