共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]图表导出图像问题
1楼
lgj716330 发表于：2024/11/12 16:51:00Dim b As New XLS.Book
Dim t As Table = Tables("测试表")
Dim s As XLS.Sheet = b.Sheets(0)
Dim Chart As WinForm.Chart = Forms("横向图表示例").Controls("Chart1")
For c As Integer = 0 To t.Cols.Count - 1 '添加列标题
s(0, c).Value = t.Cols(c).Name
Next
For r As Integer = 0 To t.Rows.Count - 1 '填入数据
For c As Integer = 0 To t.Cols.Count - 1
s(r + 1, c).Value = t.rows(r)(c)
Next
Next
'插入图表
s(t.rows.Count + 2, 1).Value = New XLS.Picture(Chart.Image, 0, 0, 422, 258)
b.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()
为什么导出后图表这么模糊呢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.xls |
2楼
有点蓝 发表于：2024/11/12 16:57:00保存为图片，试试是否模糊：http://www.foxtable.com/webhelp/topics/1010.htm
3楼
lgj716330 发表于：2024/11/12 17:09:00保存为图片不模糊。
还有导出BMP文件的背景是黑色的，如何设置导出的背景颜色
[此贴子已经被作者于2024/11/12 17:11:01编辑过]
4楼
有点蓝 发表于：2024/11/12 17:17:00那考虑保存为图片，再添加到execl里试试
共4 条记录, 每页显示 10 条, 页签:
[1]