这个学习笔记在新浪刚发出来,这里也做一次记录。
继续练习,在前面新建的画面上添加趋势控件。写下面的脚本,打开前面新建的画面,确保它在最前面。
Sub AddTrendctrl()
'画面上添加趋势控件
Dim i, objTrend
Set objTrend = ActiveDocument.HMIObjects.AddActiveXControl("trend", "CCAxOnlineTrendControl.AxOnlineTrendControl.1")
objTrend.Width = 1900
objTrend.Height = 900
objTrend.Top = 100
objTrend.Left = 100
End Sub
运行脚本,就可以在该画面上添加一个趋势控件,这个空间仅仅设定了位置和尺寸,没有做其他配置。