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