Thread: Replace color
View Single Post
Old 29-12-2007, 14:37
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,788
Blog Entries: 12
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default ConvertToCMYK

First I am no expert when it comes to Pantone Colors, but I think you are asking just to convert the Pantone Color to CMYK. That is pretty easy. Try something like this:
Sub ConvertToCMYK()
    Dim s As Shape
    For Each s In ActiveDocument.ActivePage.Shapes
        If s.Fill.Type = cdrUniformFill Then s.Fill.UniformColor.ConvertToCMYK
    Next s
End Sub
Hope that helps,

Reply With Quote