上千个静态文本需要修改动态对话框表达式结果 False对应的背景颜色,请教一下 有没有用VBA脚本批量修改的代码??
之前在B站Up主HelloWorldWinCC的视频教程是批量修改过触发器(脚本在下面),我想着既然可以修改触发器,那肯定可以修改表达式结果对应的颜色,在For Each的合集循环里 objMember.Properties("BackColor").Dynamic.后面怎么改可以实现修改动态对话框表达式结果 False对应的背景颜色??????
Sub ChangeTrigger()
On Error Resume Next
Dim objResult, objMember, objCount
Set objResult = ActiveDocument.HMIObjects.Find(ObjectName:="*", ObjectType:="HMIStaticText")
objCount = objResult.Count
MsgBox "对象的数量:" & CStr(objCount)
For Each objMember In objResult
objMember.Properties("BackColor").Dynamic.Trigger.VariableTriggers(1).CycleType = 0
objMember.Selected = True
Next objMember
MsgBox "操作完成:"
End Sub