[Gustav]

А, может, загрузку рисунка из файла на плечи Excel переложить? У меня записался примерно следующий код VBA:

 
Sub Macro2()
    Range("B2").Select
    ActiveSheet.Pictures.Insert "C:\0005.jpg"
End Sub

P.S. А поскольку семейство Pictures в объектной модели Excel является скрытым (как устаревшее), то примерно то же самое можно сделать через Shapes:

 
Sub Macro3()

    ActiveSheet.Shapes.AddPicture _
        "C:\0005.jpg", msoFalse, msoTrue, _
        Range("B2").Left, Range("B2").Top, 100, 100

End Sub