主题：[求助]图表显示调整及高清另存需求

老师好，关于图表设计，现在在老师的指导和帮助文件下，有些收获。但是还不能按实际需求意图进行展现。现有几个需求，请老师帮完善下，谢谢！

1、图系宽度是固定无法调整的；

 

2、参考 http://www.foxtable.com/webhelp/scr/0989.htm

 

3、不可以；

 

4、

 

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "文件|*.jpg" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Chart As WinForm.Chart
    Chart= Forms("图表").Controls("Chart1")
    Chart.SaveImage(dlg.FileName)
End If

 

谢谢有点甜老师，第4个问题解决了。第1和第2问题可能我没描述情况，现附图，请再帮看看。（第2我按帮助设置图形的宽度，好像不起作用）

比如

 

Chart.BarClusterWidth = 50

 

比如

 

Chart.BarClusterWidth = 50
Dim gd As C1Chart.C1Chart = Chart.BaseControl
gd.ChartArea.AxisX.ScrollBar.min = 0
gd.ChartArea.AxisX.ScrollBar.max = Tables("表A").Rows.count
gd.ChartArea.AxisX.ScrollBar.Scale = 10 / Tables("表A").Rows.count
gd.ChartArea.AxisX.ScrollBar.Visible = True            '图表加滚动条

谢谢有点甜老师，基本符合需求了，遗憾的是有了滚动条能显示完整后，另存的图片却是只有部分图形，请再帮看看，如何导出完整的图表，万分感谢！

试试

 

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "文件|*.jpg" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Chart As WinForm.Chart
    Chart= Forms("图表").Controls("Chart1")
    Dim gd = Chart.basecontrol
    gd.ChartArea.AxisX.ScrollBar.Scale = 1
    gd.ChartArea.AxisX.ScrollBar.Visible = False            '图表加滚动条
    'Dim temp = Chart.Width
    'Chart.Width = Tables("表A").Rows.count * 300
    chart.SaveImage(dlg.FileName)
    'Chart.Width = temp
End If

非常感谢有点甜老师，现在2种导出效果都实现了，虽然用了半天时间，不过这个功能很有意义！再次感谢！