在画面编辑器中，打开此画面，然后打开VBA编辑器，用VBA语言实现批量组态。

比如：

Dim objCustomizedObject As HMICustomizedObject

Dim sObj As String

Dim iIndex As Integer

Dim objDynDialog As HMIDynamicDialog

Dim sCode As String

For iIndex = 1 To 100

  sObj = "自定义对象名称" & Format(iIndex, "#0") '换成对象实际名称

  Set objCustomizedObject = ThisDocument.HMIObjects(sObj)

  sCode = "'" PLC-Wincc_阀门-" &  Format(iIndex, "#0") & "'"

  Set objDynDialog = objCustomizedObject.Properties("FlashBackColor").CreateDynamic(hmiDynamicCreationTypeDynamicDialog, sCode) ‘组态是否闪烁属性，这里换成你自己的属性

With objDynDialog

         .ResultType = hmiResultTypeBool

         .BinaryResultInfo.PositiveValue = 1 'Yes，根据你的逻辑关系

         .BinaryResultInfo.NegativeValue = 0 'No，根据你的逻辑关系

         .Trigger.VariableTriggers(1).CycleType = hmiVariableCycleTypeOnChange

  End With

Next iIndex