Hi Sarah,

The following code inserts a picture and gives it the same size and position
as the C3 cell.


Set x = ActiveSheet.Pictures.Insert( "C:\Sample.jpg")

With Range("C3")
x.Top = .Top
x.Left = .Left
x.Width = .Width
x.Height = .Height
End With



"Sarah" wrote in message
...
Hi Mates

Could some one please tell me how I could assign a shape
(or even a jpeg image) to a particular cell using a code.
And also how to make it appear at the center of the cell.

Thanks in advance

sarah