Dim obj As HMICircle

Dim objVBScript As HMIScriptInfo

'On Error Resume Next

Set obj = ActiveDocument.HMIObjects("圆3")

Set objVBScript = obj.Radius.CreateDynamic(hmiDynamicCreationTypeVBScript)

With objVBScript

.Trigger.Type = hmiTriggerTypeAnimationCycle              ‘运行到这里报错 ：方法 ‘Type’ 作用于对                                                                                                                                 象'IHMITrigger' 时失败

.Trigger.name = "VBA_StandardCycle"

.sourceCode = ""

End With