déplacer une image sans la selectionner

Dim sh As Worksheet
For Each sh In Worksheets
With sh.Shapes("Picture 1").ShapeRange
    .IncrementLeft -197.25
    .IncrementTop -25.5
End With
Next sh

Sub test()
Dim sh As Worksheet
For Each sh In Worksheets
  sh.Shapes("Image 1").Left = sh.Shapes("Image 1").Left + 30
  sh.Shapes("Image 1").Top = sh.Shapes("Image 1").Top - 30
Next sh
End Sub

Sub image()
    Dim sh As Worksheet
    Dim oShape As Shape
    For Each sh In Worksheets
        For Each oShape In sh.Shapes
            oShape.IncrementLeft -197.25
            oShape.IncrementTop -25.5
        Next
    Next sh
End Sub