View Single Post
Old 07-06-2012, 15:55
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,778
Blog Entries: 11
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 Fountain Fills

For a Fountain Fill you need to loop each color in the fill and test to see if it is CMYK, so something like this:
Sub NotCMYKFountainFills()
    Dim s As Shape
    Dim ff As FountainFill
    Dim srNoneCMYK As New ShapeRange
    Dim i As Long
    For Each s In ActivePage.FindShapes()
        If s.Fill.Type = cdrFountainFill Then
            Set ff = s.Fill.Fountain
            For i = 0 To ff.Colors.Count + 1
                If ff.Colors(i).Color.Type <> cdrColorCMYK Then
                    srNoneCMYK.Add s
                End If
            Next i
        End If
    Next s
End Sub
Hope that helps,

Reply With Quote