求助如何实现K线图的功能

tonymmm

我用excel内嵌的图表做了个K线图，请教各位大侠，想实现这样的功能：

1）在K线图上，鼠标选中某个数据点，会在图表上显示出该点的具体数据（日期，最高最低价等）；
2）在K线图上，按键盘左右箭头键可以实现曲线向左、向右延伸（比如开始图上显示的是某天13-15点的数据，按几下左键显示的就成了11-13点的数据），按键盘上下键可以实现曲线扩展或收缩（选中的数据增加或减少）。

真诚请教各位大侠帮助，不胜感激！

PS.文件在附件中，chart页图表的数据源在IF页。

tonymmm

各位大侠求帮助呀

phsu

請參閱附件。幫你處理了第一個問題。第二個問題比較簡單，可用OnKey事件處理，這留著給你自己練習。若有做出來，也貼上來與大家分享吧！

tonymmm

phsu 发表于 2015-9-27 07:47
請參閱附件。幫你處理了第一個問題。第二個問題比較簡單，可用OnKey事件處理，這留著給你自己練習。若有做 ...

非常感谢！我明天继续研究一下，如果有什么问题再来请教，如果都顺利实现了也会贴上来 :)

tonymmm

phsu 发表于 2015-9-27 07:47
請參閱附件。幫你處理了第一個問題。第二個問題比較簡單，可用OnKey事件處理，這留著給你自己練習。若有做 ...

我修改了下你的代码，实现了第二个功能。但我现在有个问题，因为我要在两个图上分别显示不同内容，就把你的mousemove函数里面显示数据值的代码With ActiveChart.Shapes(1).TextFrame.Characters改成了
With ActiveSheet.ChartObject("KChart").Shapes(1).TextFrame.Characters和
With ActiveSheet.ChartObject("DifChart").Shapes(1).TextFrame.Characters，
结果图上就都不显示鼠标所在点的数据了…………不知道什么原因，求教

tonymmm

phsu 发表于 2015-9-27 07:47
請參閱附件。幫你處理了第一個問題。第二個問題比較簡單，可用OnKey事件處理，這留著給你自己練習。若有做 ...

比较好奇的还有一点，就是在chart_MouseMove函数中只对ActiveChart的shape文字进行了赋值，但并没有“在图上画出来”这样的代码，“画出来”的代码是出现在KChartWithEvent函数中的，而且其中没有myText文字内容的传递。
但是您的代码却的确实现了在图上画出来这样的功能，所以不解的是：是不是chart_MouseMove函数运行完之后会自动运行KChartWithEvent？是不是XXXWithEvent这种函数名就意味着只要chart有事件出现就会自动执行呢？

phsu

KChartWithEvent只被執行一次。後面所有的動作都透過Chart的MouseMove事件處理。

bigmarten

请问你表格数据里的ma5，ma10，dif，dea这些是怎么获取的？一般接口只有价格和成交量。