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
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
~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.