- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于图表问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150303)
-- 发布时间：2020/5/26 16:12: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:\\Users\\HP\\Desktop\\新建文件夹 (2)\\test.xls")
Dim Proc As New Process
Proc.File = "C:\\Users\\HP\\Desktop\\新建文件夹 (2)\\test.xls"
Proc.Start()
上面有两个问题：
1，导出图表太小，如附件图，如何解决？
2，("C:\\Users\\HP\\Desktop\\新建文件夹 (2)\\test.xls")，这个路径，如何改更灵活，或象导出一样，可以打开对话框，由用户自定义
此主题相关图片如下：图表问题.jpg
-- 发布时间：2020/5/26 16:23:00
--
s(t.rows.Count + 2,1).Value = New XLS.Picture(Chart.Image,0,0,1000,800)
New XLS.Picture(Image, Left, Top, Width, Height)
参数：
Image: 要插入的图片。
Left: 左边距，单位为像素。
Top: 上边距，单位为像素。
Width： 宽度，单位为像素。
Height: 高度，单位为像素。
可用GetImage函数从指定的图标
-- 发布时间：2020/5/26 16:42:00
--
1.改了还是有问题：
图糊了，还有区域变大与图表不一致
2，("C:\\Users\\HP\\Desktop\\新建文件夹 (2)\\test.xls")，这个路径，如何改更灵活，或象导出一样，可以打开对话框，由用户自定义
此主题相关图片如下：图表问题1.jpg
-- 发布时间：2020/5/26 16:51:00
--
图表不要使用虚拟模式，去掉下面代码
Chart.VisualEffect = True
-- 发布时间：2020/5/26 17:05:00
--
老师，上面1楼代码没用到Chart.VisualEffect = True，还有("C:\\Users\\HP\\Desktop\\新建文件夹 (2)\\test.xls")，这个路径，如何改更灵活，或象导出一样，可以打开对话框，由用户自定义。谢谢
-- 发布时间：2020/5/26 17:22:00
--
改为使用对话框即可：http://www.foxtable.com/webhelp/topics/0329.htm
图表的问题做个例子来看看
-- 发布时间：2020/5/26 20:29:00
--
s(t.rows.Count + 2,1).Value = New XLS.Picture(Chart.Image,0,0,1000,900)
\'b.Save("C:\\Users\\HP\\Desktop\\新建文件夹 (2)\\test.xls")
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
Dim Proc As New Process
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
\'Proc.File = MessageBox.Show("你要保存为:" & dlg.FileName,"提示") \'提示用户选择的文件
Tables("统计表").SaveExcel(dlg.FileName, "统计表") \'保存文件
Proc.Start()
End If
老师，这样改不行，请您纠正，谢谢
-- 发布时间：2020/5/26 20:32:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
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(dlg.FileName)
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If