如何同时修改多个对象属性

qflut

想改变多个对象的属性，比如，在一张图纸中将多个text对象宽度都变成0.7，除遍历for each选择集以外有没有办法在vb里面办到呢(遍历速度实在让人受不了)。谢谢先。明明鼠标操作的话也就是一个ctrl^1的事情，而在VB里面怎么需要半天呢。