我想改变图形编辑器中的部分矩形的颜色，在下面的程序中怎么修改？
Sub 机台颜色设置()
Dim colSearchResults As HMICollection
Dim objMember As HMIObject
Set colSearchResults = ActiveDocument.HMIObjects.Find(ObjectName:="矩形***")
For Each objMember In colSearchResults
objMember.BackColor = RGB(0, 255, 0)
Next objMember
End Sub
问题补充：
第一次没有说清楚，我的意思是修改部其中的一部分，矩形有好几百个，我想修改525-534之间的这些矩形的颜色，是否还要用if then语句？怎么添加？
最佳答案
楼上正解。
Sub 机台颜色设置()
Dim colSearchResults As HMICollection
Dim objMember As HMIObject
Set colSearchResults = ActiveDocument.HMIObjects.Find(ObjectName:="矩形525")
objMember.BackColor = RGB(0, 255, 0)
在这个中间加入你想要修改的其他矩形
Set colSearchResults = ActiveDocument.HMIObjects.Find(ObjectName:="矩形534")
objMember.BackColor = RGB(0, 255, 0)
End Sub
提问者对于答案的评价：
谢谢，不过觉得图形少确实不需要这样了
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc201653.html
微信扫一扫 
支付宝扫一扫