Hi Sacsin,

Try:

Sub Tester()

With Range("A1")
ActiveSheet.Pictures.Insert _
("C:\My Pictures\ZA5469.jpg")
End With

End Sub

Change the name and path of the picture file; change "A1" to the desired
insertion position.

---
Regards,
Norman



"sacsin" wrote in message
...
how i add picture in excel using vb6.0 at runtime