以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  [求助]关于VBA控制k线图的一些问题  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=84696)
--  作者：lhxpanda
--  发布时间：2015/9/2 13:46:04
--  [求助]关于VBA控制k线图的一些问题
 我要实现在一分钟k线图上，每次挪动240根k线，现在实现了挪动，但是在不连接行情数据只用本地数据的情况下，挪动之后的k线图不重新计算最高点和最低点，造成k线图有时出框。如下图
图片点击可在新窗口打开查看
我的代码如下：
    Set Grid = Technic.GetGridByName("Main")
    nn=Grid.startshowindex
    Grid.startshowindex(nn-240)
    Technic.Refresh
请老师帮忙指导一下怎么改正，谢谢，我是新手，能帮我举个小例子吗，谢谢
还有一个问题，我记得官网上的培训视频里有个老师说过，VBA可以实现软件上所有手动可以实现的功能，我现在想要文件菜单下输出图形这个功能，可否实现，能不能给个例子，谢谢
--  作者：yukizzc
--  发布时间：2015/9/2 15:16:18
--  

用窗格的MaxPrice属性来控制，这是个类似例子，通过循环当前图表里的最大值然后去设置窗格属性

Max = 0
Min = 500000

For i=N to N+120
If MinuteData.NewPrice(i)>Max Then Max = MinuteData.NewPrice(i)
If MinuteData.NewPrice(i)<Min Then Min = MinuteData.NewPrice(i)
Next

Grid.MaxPrice = Max
Grid.MinPrice = Min

 

你后面这个不行
--  作者：lhxpanda
--  发布时间：2015/9/2 15:22:53
--  
 不能实现截图吗
--  作者：yukizzc
--  发布时间：2015/9/2 15:31:54
--  

做不到
--  作者：lhxpanda
--  发布时间：2015/9/2 15:44:51
--  
 感谢