Dim workbook_Temp As PoiWorkbook
Dim sheet_Temp As PoiSheet
Dim int_ImageNumber As Int
workbook_Temp.InitializeNew(True)
int_ImageNumber=workbook_Temp.AddImage(File.DirApp,"testimage.png")
sheet_Temp = workbook_Temp.AddSheet("Testing sheet",0)
For i = 0 To 10
Dim row_Temp As PoiRow = sheet_Temp.CreateRow(i)
For j = 0 To 10
Dim cell_Temp As PoiCell = row_Temp.CreateCellString(j,"")
Next
Next
sheet_Temp.SetImage(int_ImageNumber,0,0,10,5)
workbook_Temp.Save(File.DirApp,"test.xlsx")
workbook_Temp.Close
fx.ShowExternalDocument(File.Combine(File.DirApp,"test.xlsx"))