For i = 1 To 5
Dim dataRow As PoiRow = sheet1.CreateRow(i)
dataRow.CreateCellString(0,"PHOTOTEST")
Dim imageidx As Int = wb.AddImage(File.DirAssets,"photo.png")
' first try
sheet1.SetImage(imageidx,i,2,i,2) ' no one photo
' second try
'sheet1.SetImage(imageidx,i,i,2,2) ' one foto in right cell other big
' third try
'sheet1.SetImage(imageidx,2,2,i,i) ' from little to big photo non in right cell
' four
'sheet1.SetImage(imageidx,2,i,2,i) ' no one photo
Next