Removing Fountain Fills Macro problem

[knowbodynow]

Hello,

I have the following macro which I thought would remove fountain fills:

Sub convertfountain()

Dim s as shape 
  
For Each s In ActivePage.FindShapes
If s.Fill.Type = cdrFountainFill Then
s.Fill.UniformColor.CMYKAssign 0, 0, 0, 0
End If
Next s
 
End Sub

Objects with fountain fills become white. I can then change the colour using the palette. However, if I run the macro a second time any object that has had its colour changed manually still seems to be treated as having a fountain fill and the colour is changed back to white. What am I missing? Ideally, I'd like to be able to change the fountain fills to the colour that is the midpoint colour and remove the fountain fill but I don't know how to do that.

Chris (Hunt)

[shelbym]

What version of CorelDRAW are you trying this in. I tried your code in X3 and it worked fine. Fountain Fills were changed to white the first them. I then manual changed there color to something else, and the script ignored them like it should.

Thanks,

Shelby

[knowbodynow]

Hi Shelby,

Thanks for the reply, I'm using version 12.

Chris

[wOxxOm]

No pc here so my guess is - use applyfill method if there is one - the problem is that you do not change fill type