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

objTrend.Properties("ObjectName") = "变量趋势1" '

objTrend.Properties("TrendIndex") = 1

objTrend.Properties("TrendRemove") = objTrend.Properties("TrendName")

objTrend.Properties("TrendAdd") = "实数1"

objTrend.Properties("TrendTagName") = "过程值归档\Real1"

objTrend.Properties("TrendAdd") = "实数2"

objTrend.Properties("TrendTagName") = "过程值归档\Real2"

objTrend.Properties("TrendAdd") = "实数3"

objTrend.Properties("TrendTagName") = "过程值归档\Real3"

objTrend.Properties("TrendAdd") = "实数4"

objTrend.Properties("TrendTagName") = "过程值归档\Real4"

objTrend.Properties("TrendAdd") = "实数5"

objTrend.Properties("TrendTagName") = "过程值归档\Real5"

End Sub

保存运行，就会在当前打开的WINCC画面上新建一个趋势控件，名字叫做“变量趋势1”，有5个趋势笔，分别对应real1至real5，掌握了这个方法，设置趋势控件其他属性就简单了。