This can undertake coloring on the specified graphics, and then copy a graphics, to fill in the other colors, but it is the Shapes (2) the operation, if you want to mouse selected graphics for such operation, need how to change, please have a look at, thanks a lot!

 
ActiveDocument. ReferencePoint=cdrMiddleRight 
ActiveLayer. Shapes (2). The Fill. UniformColor. CMYKAssign 0, 100, 100, 0 
Dim s1 As Shape 
The Set s1=ActiveLayer. Shapes (2). Duplicate 
S1. Move - 1.90548, 0.047165 
S1. OrderToFront 
S1. The Fill. UniformColor. CMYKAssign 0, 0, 0, 80