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

收藏

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

iceman · iceman

回复 1楼iceman的帖子

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

private void Form1_Load(object sender, EventArgs e)
{
FarPoint.Win.Spread.CellType.ImageCellType icelltype = new FarPoint.Win.Spread.CellType.ImageCellType();
icelltype.Style = FarPoint.Win.RenderStyle.Stretch;
icelltype.TransparencyColor = Color.Black;
icelltype.TransparencyTolerance = 100;
fpSpread1.Sheets[0].Rows[0].CellType = icelltype;
System.Drawing.Image image = System.Drawing.Image.FromFile("Chrysanthemum.jpg");
System.IO.MemoryStream stream = new System.IO.MemoryStream();
byte[] bytes;
string str;
image.Save(stream, System.Drawing.Imaging.ImageFormat.Jpeg);
stream.Seek(0, System.IO.SeekOrigin.Begin);
bytes = stream.GetBuffer();
str = System.Convert.ToBase64String(bytes);
fpSpread1.Sheets[0].Cells[0, 0].Value = image;
fpSpread1.Sheets[0].Cells[0, 0].Text = "fdfdasfdas";
fpSpread1.Sheets[0].Protect = false;
this.fpSpread1.SaveExcel("test.xls");
}

复制代码

jinzaiya · jinzaiya

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

iceman · iceman

回复 3楼jinzaiya的帖子

你好，

我使用的版本是：Version=4.0.3526.2008

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

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

jinzaiya · jinzaiya

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

iceman · iceman

回复 5楼jinzaiya的帖子

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

jinzaiya · jinzaiya

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

2013-7-19 16:39 上传

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

Imports FarPoint.Win.Spread
Public Class ImageCellType
Private Sub ImageCellType_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim iCelltype As CellType.ImageCellType = New CellType.ImageCellType()
iCelltype.Style = Win.RenderStyle.Stretch
iCelltype.TransparencyColor = Color.Black
iCelltype.TransparencyTolerance = 100
OcxFpSpread1.Sheets(0).Rows(0).CellType = iCelltype
Dim img As Image = Image.FromFile("F:\李斯墨\diy.jpg")
Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
Dim bytes As Byte()
Dim str As String
img.Save(stream, Imaging.ImageFormat.Jpeg)
stream.Seek(0, IO.SeekOrigin.Begin)
bytes = stream.GetBuffer()
str = System.Convert.ToBase64String(bytes)
OcxFpSpread1.Sheets(0).Cells(0, 0).Text = str
OcxFpSpread1.Sheets(0).Cells(0, 0).Value = img
OcxFpSpread1.Sheets(0).Protect = False
OcxFpSpread1.SaveExcel("f:\111.xls")
End Sub
End Class

复制代码

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

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

复制代码

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

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

iceman · iceman

回复 7楼jinzaiya的帖子

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

jinzaiya · jinzaiya

恩，谢谢iceman热心解答

iceman · iceman

回复 9楼jinzaiya的帖子

不客气

		自动登录	找回密码
密码			立即注册

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

9 个回复

活字格认证

微信认证勋章

元老葡萄