[求助]求助狐爸,通过图表生成的Excel报表怎么不清楚,如图,圆饼图太模糊了,能让它清楚一下吗?
此主题相关图片如下:qq截图20170820093719.bmp
一下是代码
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,450,250)
b.Save("c:\reports\年龄统计.xls")
Dim Proc As New Process
Proc.File = "c:\reports\年龄统计.xls"
Proc.Start()
[此贴子已经被作者于2017/8/20 9:43:31编辑过]