VBA gradient strangeness

Once again I have a VBA/macro related question (suspicion of a bug?) which, hopefully, can be cleared up by some of the macro pros that frequent this fine forum.

Basically it seems that changing the .StartX and .StartY values of a gradient via VBA brings nothing but trouble. Let's do an example - we draw a simple shape:

Then run this code:

Sub GradientProblem()
    
    Dim S As Shape
    
    Set S = ActiveSelectionRange.Shapes.First
    
    S.Fill.ApplyFountainFill
    
    With S.Fill.Fountain
    
        .StartX = S.LeftX
        .StartY = S.CenterY
        .EndX = S.RightX
        .EndY = S.CenterY
    
    End With

End Sub

And get this:

Everything as expected so far, but if we now left click a red color swatch and expect to get a uniform fill we get this:

If we click again, this time a blue one we get this:

 

And so on. Basically it seems as if a selection is stuck on a gradient node. Adding more shapes sometimes yields graphical glitches, such as no color being applied at all and/or the original shape showing weird, corrupted gradient controls over it. Does anyone have an explanation and/or can repeat the problem?

 

  • Hi Joe.

    Yes, Definitely some weird stuff going on. I think they were trying to add some quick access ways to change a fountain fills colors. You can even see many color handles pop up around a fountain fill.I get some weird stuff going on and I really haven't played with it much.

    I don't think it's a vba bug. It looks like a beta feature Stick out tongue

    Here's a vid of the strangeness with various shapes. Even if I select a single shape you see weird goings on with the other shapes. The more you play with it the more you see wrong Sad

     

    ~John

    • Yup, it gets weirder and weirder. Which isn't all that great when you are basically forced to close CD and reopen to continue working.

      Thanks for testing this, John. I do hope some kinda workaround pops up, though (maybe someone from Corel has something to say, who knows).

      As for the handles - they look like the usual Interactive FIll Tool stuff, albeit somewhat corrupted.