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