请问，单元格类型为文本类型，其背景设置了一张图片，saveexcel后背景图片没有输出。方法中只有列头、行头输出的设置没

请问，单元格类型为文本类型，其背景设置了一张图片，saveexcel后背景图片没有输出。方法中只有列头、行头输出的设置没有图片相关的输出参数设定，现在的版本有提供这个功能吗。现在用的是4.0

回复 1楼iceman的帖子

jinzaiya 你好，
Spread 拥有单元格类型 ImageCellType ，可以用户导出图片到 Excel。
请参考以下代码：

1. 
   
2. private void Form1_Load(object sender, EventArgs e)
   
3.         {
   
4.             FarPoint.Win.Spread.CellType.ImageCellType icelltype = new FarPoint.Win.Spread.CellType.ImageCellType();
   
5.             icelltype.Style = FarPoint.Win.RenderStyle.Stretch;
   
6.             icelltype.TransparencyColor = Color.Black;
   
7.             icelltype.TransparencyTolerance = 100;
   
8.             fpSpread1.Sheets[0].Rows[0].CellType = icelltype;
   
9.             System.Drawing.Image image = System.Drawing.Image.FromFile("Chrysanthemum.jpg");
   
10.             System.IO.MemoryStream stream = new System.IO.MemoryStream();
    
11.             byte[] bytes;
    
12.             string str;
    
13.             image.Save(stream, System.Drawing.Imaging.ImageFormat.Jpeg);
    
14.             stream.Seek(0, System.IO.SeekOrigin.Begin);
    
15.             bytes = stream.GetBuffer();
    
16.             str = System.Convert.ToBase64String(bytes);
    
17.             fpSpread1.Sheets[0].Cells[0, 0].Value = image;
    
18.             fpSpread1.Sheets[0].Cells[0, 0].Text = "fdfdasfdas";
    
19.             fpSpread1.Sheets[0].Protect = false;
    
20. 
    
21.             this.fpSpread1.SaveExcel("test.xls");
    
22.         }
    

复制代码

不行。导出excel后单元格中的内容为System.Drawing.Bitmap，是版本太低的原因？

回复 3楼jinzaiya的帖子

你好，

我使用的版本是：Version=4.0.3526.2008

我使用附件 Demo 可以正常保存图片，请查看。

9714.zip (3.33 MB, 下载次数: 1134)

2013-7-16 14:10 上传

点击文件名下载附件

真遗憾，没能实现图片导出的效果。之前我说错了仔细看才发现用的Version=3.0.2003.2005  .现在的问题是用您4.0版本不把单元格类型设置为imagecelltype,而采用文本类型的背景图片应该也是可以导出图片来吧。我想这种推测应该是对的？我的问题应该就是低版本不支持图片的导出处理(暂时这样向上级交代)。

回复 5楼jinzaiya的帖子

您的实现方法是设置 TextCellType 后，给单元格添加背景图片吗？能否发一个你的例子上来看看？

111.rar (37.04 KB, 下载次数: 1671)

2013-7-19 16:39 上传

点击文件名下载附件 不好意思，我用的VB开发的（vs2008）
方案1、这是把单元格类型设置为imageCellType后，spread可以显示图片，导出为excel文件时没有图片（有文字：System.Drawing.Bitmap）

1. 
   
2. Imports FarPoint.Win.Spread
   
3. Public Class ImageCellType
   
4.     Private Sub ImageCellType_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
   
5.     End Sub
   
6. 
   
7.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
8.         Dim iCelltype As CellType.ImageCellType = New CellType.ImageCellType()
   
9.         iCelltype.Style = Win.RenderStyle.Stretch
   
10.         iCelltype.TransparencyColor = Color.Black
    
11.         iCelltype.TransparencyTolerance = 100
    
12.         OcxFpSpread1.Sheets(0).Rows(0).CellType = iCelltype
    
13.         Dim img As Image = Image.FromFile("F:\李斯墨\diy.jpg")
    
14.         Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
    
15.         Dim bytes As Byte()
    
16.         Dim str As String
    
17.         img.Save(stream, Imaging.ImageFormat.Jpeg)
    
18.         stream.Seek(0, IO.SeekOrigin.Begin)
    
19.         bytes = stream.GetBuffer()
    
20.         str = System.Convert.ToBase64String(bytes)
    
21.         OcxFpSpread1.Sheets(0).Cells(0, 0).Text = str
    
22.         OcxFpSpread1.Sheets(0).Cells(0, 0).Value = img
    
23.         OcxFpSpread1.Sheets(0).Protect = False
    
24.         OcxFpSpread1.SaveExcel("f:\111.xls")
    
25.     End Sub
    
26. End Class
    

复制代码

方案2、之前自己的项目中单元格设置为TextCellType，把图片当成单元格的背景方式载入，加载到spread能显示图片，保存为Excel后图片没有显示（文字也没有）
部分代码如下：

1. 
   
2. Dim g As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType()
   
3.                                         Dim ms As MemoryStream = New MemoryStream(CType(CType(dict_field(key), ArrayList).Item(0), Byte()))
   
4.                                         Dim p As FarPoint.Win.Picture = New FarPoint.Win.Picture(Image.FromStream(ms), FarPoint.Win.RenderStyle.Stretch)
   
5.                                         g.BackgroundImage = p
   
6.                                         FpSpread1.Sheets(ii).Cells(i, j).CellType = g
   

复制代码

附档：为生成后的文件及窗体截图


ps.附档传了三次才放上去最后还把图片压了一下，上传工具貌似有些不听使唤。

回复 7楼jinzaiya的帖子

代码是正确的，和我这边一致。是版本问题。

恩，谢谢iceman热心解答

回复 9楼jinzaiya的帖子

不客气