Picture names are had to get. but this code works when there is only one
picture on a worksheet

Sub moveshape()

For Each myshape In ActiveSheet.Shapes
myleft = myshape.Left
myRight = myshape.Top
msgbox("Picture Name = " & myshape.name)
myshape.Left = myleft + 10
myshape.Top = mytop + 10
Next myshape
End Sub

Method 2

Sub moveshape1()
With ActiveSheet.Shapes("Picture 1")
myleft = .Left
myRight = .Top

.Left = myleft + 10
.Top = mytop + 10
End With
End Sub



"Juan Schwartz" wrote:

I know you can nudge shapes X pixels or what have you, but is there a
way to set the image to a home position... IE position it in the top
left corner so I can know how far to move it OR position the image
relative to other images already in place?

Thank you,

Jimmy