将图像插入excel文件

Question

如何以下面的方式将图像插入excel文件？

Set app = CreateObject("Excel.Application")
Set wb = app.Workbooks.Add
wb.Worksheets(1).Activate
wb.Sheets(1).Cells(1,5).Value = 'code for inserting image