以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]图表导出图像问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194126)
--  作者：lgj716330
--  发布时间：2024/11/12 16:51:00
--  [求助]图表导出图像问题
Dim 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
--  作者：有点蓝
--  发布时间：2024/11/12 16:57:00
--  
保存为图片，试试是否模糊：http://www.foxtable.com/webhelp/topics/1010.htm
--  作者：lgj716330
--  发布时间：2024/11/12 17:09:00
--  
保存为图片不模糊。
还有导出BMP文件的背景是黑色的，如何设置导出的背景颜色
[此贴子已经被作者于2024/11/12 17:11:01编辑过]
--  作者：有点蓝
--  发布时间：2024/11/12 17:17:00
--  
那考虑保存为图片，再添加到execl里试试