直接插入图片
单元格的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()
本页地址:http://www.foxtable.com/webhelp/topics/1149.htm