直接插入图片

单元格的Value属性，不仅可以设置为数据，还可以设置为一个XLS.Picture对象。
XLS.Picture用于定义一个可插入到Excel单元格的图片，语法为：

New XLS.Picture(Image)

或

New XLS.Picture(Image, Left, Top, Width, Height)

参数：

Image:  要插入的图片。
Left:   左边距，单位为像素。
Top:    上边距，单位为像素。
Width： 宽度，单位为像素。
Height: 高度，单位为像素。

可用GetImage函数从指定的图标文件中获得图标，如果文件已经事先复制到管理项目的Images子目录下,则只需指定文件名即可,否则需要包括路径。

例如：

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
For i As Integer = 0 To 9 '向工作表的单元格中设置值
    Sheet(i, 0).Value = (i + 1) * 10
    Sheet(i, 1).Value = (i + 1) * 100
    Sheet(i, 2).Value = (i + 1) * 1000
Next
Sheet(10,2).Value = New XLS.Picture(GetImage("c:\Foxtable.Ico"))
Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()