圖片插入方法：

ImportsSpire.Xls

NamespaceInsertImage

FriendClassProgram

SharedSubMain(ByValargs()AsString)

'CreateWorkbook

DimworkbookAsNewWorkbook()

DimsheetAsWorksheet=workbook.Worksheets(0)

'InsertImage

sheet.Pictures.Add(1,1,"E:\work\sample.jpg")

'SaveandLaunch

workbook.SaveToFile("ExcelImage.xlsx",ExcelVersion.Version2010)

System.Diagnostics.Process.Start("ExcelImage.xlsx")

EndSub

EndClass

EndNamespace