with Shapes("Picture 1")
.Top = range("B9").Top
.Left = range("B9").Left
End With

You can also specify the Width and Left properties or scale the picture. If
you need sample code, turn on the macro recorder and configure the picture
manually.

Activesheet.Pictures.Select

--
Regards,
Tom Ogilvy

"blewyn" wrote in message
om...
How do I specify the position of a picture on a worksheet with a macro
? Also, is there a way to have a macro select all the pictures on a
page, regardless of their object names ?

Thanks,

Blewyn