玩转VBA窗体图表——MSChart控件详细教程

ivccav

zopey 发表于 2019-1-23 13:56
请问，这个MSChart 绘图 有没有滚动条，用来展示比较长的 数据区间？

比如 股票收盘均价历史图，累计下 ...

MSChart没有滚动条的，我在图表缩放那节也说明了。EXCEL工作表的图表也没有滚动条。

但是可以把MSChart放在Frame框架里面，修改控件的Width和Height就可以方便的做滚动条。


当时觉得这个功能很容易实现，就没有写代码。已经重新更新了附件，应该是能实现的。


你查询的数据本来就知道大概大小，直接设置控件的高度和宽度，并直接修改框架的滚动条就好了，缩放都可以不要。

ivccav

在多条件切片时，越发觉得MSChart好用，因为可以用SQL语句处理。

如：http://club.excelhome.net/thread-1458482-1-1.html

ivccav

zopey 发表于 2019-1-23 13:56
请问，这个MSChart 绘图 有没有滚动条，用来展示比较长的 数据区间？

比如 股票收盘均价历史图，累计下 ...

你自己去试验吧，MSChart控件的宽度是单精度单位磅，

我设置为很大的值，都是没有问题的，只是有没有必要。

zopey

感觉并没有一次加载全部有效、真实的数据（屏幕不够长），
而是 通过 拉动滚动条事件， 动态的刷新显示后面的数据。

ivccav

zopey 发表于 2019-1-24 19:43
感觉并没有一次加载全部有效、真实的数据（屏幕不够长），
而是 通过 拉动滚动条事件， 动态的刷新显示后 ...

我也有给MSChart添加滚动条的代码，但是想想要自己写滚动条事件，

太麻烦，就懒得用滚动条了，直接借用窗体或框架的滚动条也够用了。

1. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
   
2. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
   
3. Private Const GWL_STYLE = (-16)
   
4. Private Const WS_HSCROLL = &H100000
   
5. Private Const WS_VSCROLL = &H200000
   
6. 
   
7. Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As
   
8. 
   
9. Long, ByVal wFlags As Long) As Long
   
10. Private Const SWP_NOSIZE = &H1
    
11. Private Const SWP_NOZORDER = &H4
    
12. Private Const SWP_FRAMECHANGED = &H20
    
13. Private Const SWP_NOMOVE = &H2
    
14. 
    
15. 
    
16. Private Sub ModifyStyle()
    
17.     Dim lStyle As Long
    
18.     lStyle = GetWindowLong(MSChart1.hwnd, GWL_STYLE)
    
19.     SetWindowLong MSChart1.hwnd, GWL_STYLE, lStyle Or WS_HSCROLL Or WS_VSCROLL
    
20.     SetWindowPos MSChart1.hwnd, 0&, 0&, 0&, 0&, 0&, SWP_NOSIZE Or SWP_NOZORDER Or SWP_FRAMECHANGED Or SWP_NOMOVE
    
21. End Sub
    
22. 
    
23. Private Sub UserForm_Initialize()
    
24.   ModifyStyle
    
25. End Sub

复制代码

ivccav

等有时间看看能不能给图表写给滚动条事件。。。。

ivccav

图表保存为其他格式时，可用如下代码（未测试）：




把图表保存为JPG、TIFF、PNG、GIF、BMP格式的方法.zip (14.75 KB, 下载次数: 297)

2019-2-1 16:21 上传

点击文件名下载附件

不知何故

ivccav 发表于 2019-1-24 19:51
我也有给MSChart添加滚动条的代码，但是想想要自己写滚动条事件，

太麻烦，就懒得用滚动条了，直 ...

自己完成滚动条事件要考虑的细节很多，感觉没有必要，直接使用窗体或框架的滚动条足矣。

ivccav

不知何故 发表于 2019-2-11 18:58
自己完成滚动条事件要考虑的细节很多，感觉没有必要，直接使用窗体或框架的滚动条足矣。

图表比较难，使用的人需要比较高的基础，因此关注的人比较少，不搞那么复杂了。

在窗体上绘制图表，有这些知识足够了。滚动条是没有必要的，也可以用其他方式代替。

canghaisui

这个信息量好大，谢谢楼主分享