使用VB.NET向Excel插入图片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