LoadPicture

'Excel
'First, make a image control in control tool box
'then load a picture(bmp, jpg, gif, ico, etc)

Private Sub load()
Dim pic As Object
Set pic = LoadPicture(Filename)
Set Image1.Picture = pic
End Sub

Reference: http://msdn.microsoft.com/en-us/library/aa733639(VS.60).aspx