Setting transparency via VBA

Normal 0 21 false false false MicrosoftInternetExplorer4

I want to set a part of a picture transparend. The picture is 1280*1024, I want to have the right half solid, then the picture fading out on the left.

When I'm using this code:

            With MasterShape.Transparency.ApplyFountainTransparency(0, 100, 1, 180, 0, 0, 100)
               .StartX = 640
               .StartY = BaseY + CurMon.Height / 2
               .EndX = 0
               .EndY = BaseY + CurMon.Height / 2
            End With
the transparency starts at the right corner of the picture and ends on the left side. I have tried it with different values of StartX/EndX, but didn't saw any difference in the result.

When I add the following lines:

MasterShape.Transparency.Fountain.StartX = 250
MsgBox Str(MasterShape.Transparency.Fountain.StartX) + Str(MasterShape.Transparency.Fountain.EndX)

The message box shows me the start and end of the picture (~1280 and 0) although I changed StartX immediately before.

When I'm modifying the centre of the transparency manually and record a macro during that time, StartX is the changed value.

 

Now I've moved the same code to X6 and all works fine. Why do I need a new version when only the old is working?