直接插入图片

单元格的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