CitectVBA定制过程分析器7:设置时间轴跨度
这是我在新浪博客写的一篇学习笔记,在这里也发表一次。
CitectVBA定制过程分析器7:设置时间轴跨度_来自金沙江的小鱼_新浪博客 (sina.com.cn)
前面的练习中尝试过通过CitectVBA设置时间轴跨度,没有成功,今晚做了一下效果出来了,使用下面的脚本就可以。
Sub SetTimeAxisSpan()
'设置过程分析器的时间轴范围
Dim pa As Object
Dim hPanes As Object
Dim hPane As Object
Dim hPens As Object
Dim hPen1 As Object
Set pa=main_AN4
Set hPanes=pa.panes
Set hPane=hPanes.item(1)
Set hPens=hPane.pens
Set hPen1=hPens.item(1)
'设置默认的跨度8小时
hPen1.SetDefaultSpan 0,0,8,0,0,0
hPen1.ResetToDefaultSpan
End Sub