jerryjun wrote: 先使用選物件的指令 再用VisPropertySet 如下 Set VisPropSet1 = selection1.VisProperties VisPropSet1.SetRealColor 255, int(255*(i-1)/max), int(255*(1-((i-1)/max)) )