changing the transition effect property in macro

[nilmol]

Hi,

Is it possible to change the transition effect property in a macro?

What I want to do is to change between CoverRight and CoverLeft depending on if the previous tab is left or right from the selected tab.

I use the mouse down event to register the present tab and the mouse up event to register the new selected tab. This works well. But when trying to set the transition effect accordingly all fails with error message 438, method not supported.

What I've tried so far without success is;
FnrDep is the value of the previous tab.
In the MouseUp Event I put:

FnrArr = Mpg_Planering.Value
If FnrArr < FnrDep Then
Mpg_Planering.Page(FnrArr).TransitionEffect = 3
Else
Mpg_Planering.Page(FnrArr).TransitionEffect = 7
End If


Am I hoping to much from Excel or am I doing something wrong?

 

[RoryA]

It's Pages(FnrArr) rather than Page(FnrArr)

 

[nilmol]

Thanks!

However, it seems that it doesn't always work as expected. Sometimes, not always, the transition effect is the opposite than expected. Maybe it will work better if I use the Change event instead of mouseUp. Trial and error...

 

[nilmol]

Ok, I've figured it out...

Since transition happens before it's possible to set the transition effect to the tab that was clicked it's necessary to set the wanted transition effect to all tabs depending on which tab was clicked. Not sure if I'm being clear abut this but this code does the work that I wanted, i.e sliding left if a tab left of of previous tab was clicked and viceversa.

In the MouseUp Event:

Select Case Mpg_Planering.Value
    Case 0
            Mpg_Planering.Pages(1).TransitionEffect = 7
            Mpg_Planering.Pages(2).TransitionEffect = 7
            Mpg_Planering.Pages(3).TransitionEffect = 7
    Case 1
            Mpg_Planering.Pages(0).TransitionEffect = 3
            Mpg_Planering.Pages(2).TransitionEffect = 7
            Mpg_Planering.Pages(3).TransitionEffect = 7
    Case 2
            Mpg_Planering.Pages(0).TransitionEffect = 3
            Mpg_Planering.Pages(1).TransitionEffect = 3
            Mpg_Planering.Pages(3).TransitionEffect = 7
    Case 3
            Mpg_Planering.Pages(0).TransitionEffect = 3
            Mpg_Planering.Pages(1).TransitionEffect = 3
            Mpg_Planering.Pages(2).TransitionEffect = 3
End Select