Johan

Try to give the object a absolute position instead of a relative one:
like this--

Sub position_of_picture()

ActiveSheet.Shapes(1).Select
Selection.ShapeRange.Left = 100
Selection.ShapeRange.Top = 50

End Sub

try to play with the 100 and 50 figures.....

Good luck