Sub Macro1()
Range("B9").Select
Set pic = ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\username\My Documents\My
Pictures\Sample.jpg")
pic.Height = Range("B9").Height
pic.Width = Range("B9").Width

End Sub

should get you started.

--
Regards,
Tom Ogilvy


"ngane" wrote in message
...
is there any method or VBA program to insert a picture in an exact cell in
an
excel spreadsheet?