How's this do for you?

Sub Streng()

ActiveSheet.Shapes("Picture 2").Placement = xlFreeFloating

End Sub
Obviously change "Picture 2" to the name of your picture.