Thread: Replace color
View Single Post
  #4  
Old 31-12-2007, 11:52
admold
Guest
 
Posts: n/a
Default Change

I receive from ALEX a script. I'm change it very little and I get this:

Sub repl_color2()
'

Dim s As Shape, colorSource As Color, SR As ShapeRange
Dim I As Integer

For I = 0 To 100
Set colorSource = CreateFixedColor(cdrPANTONEUncoated, 10, I)
Set SR = New ShapeRange

For Each s In ActivePage.FindShapes
If s.Fill.UniformColor.IsSame(colorSource) Then SR.Add s
Next s

SR.ApplyUniformFill CreateCMYKColor(I, 0, 0, 0)
Next

End Sub
Reply With Quote