WINCCV7.5SP2环境下VBA编程-添加趋势控件，趋势笔绑定变量

歇了一段时间没有做WINCC环境下VBA学习，今晚继续。新建下面的VBA脚本
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