Filled shapes becomes transparent when changing sheet through VBA

[Santaflare]

Hi,

I've tried to utilize VBA to enable smooth transitions between sheets. When activated a square shape is moved into cell A1 and gradually fills the screen before the sheet is changed. On the next sheet a similar shape is gradually becoming transparent (and later moved out of sight) to present the user with a new "page".

My problem is that even though I've disabled Screen Updating, the filled shapes are briefly transparent as the sheets changes (about a second), which kind of ruin the nice transition effect that I've tried to achieve.

Below is the code for the sheet change, followed by the two I've tried to use to enable the fade. Any ideas as to what might be interfering would be greatly appreciated!

Sub Change_Sheet()
    Call FadeOut
    Application.ScreenUpdating = False
    Sheets("2").Visible = True
    Sheets("2").Activate
    Sheets("Main Menu").Visible = xlSheetVeryHidden
    Application.ScreenUpdating = True
    Call FadeIN 

End Sub

Sub FadeOut()
    Dim r As Range

    With ActiveSheet.Shapes("Fade")
    .Top = Range("A1").Top
    .Left = Range("A1").Left
    End With
    
    ActiveSheet.Shapes("Fade").Select
    Selection.ShapeRange.ZOrder msoBringToFront
    Selection.ShapeRange.Fill.Transparency = 1

    For i = 1 To 100
        Selection.ShapeRange.Fill.Transparency = 1 - i / 100
        DoEvents
    Next

End Sub

Sub FadeIN()
    Dim r As Range

    ActiveSheet.Shapes("Fade").Select
    Selection.ShapeRange.ZOrder msoBringToFront
    Selection.ShapeRange.Fill.Transparency = 1

    For i = 1 To 100
        Selection.ShapeRange.Fill.Transparency = i / 100
        DoEvents
    Next
    
    With ActiveSheet.Shapes("Fade")
    .Top = Range("A500").Top
    .Left = Range("A500").Left
    End With

End Sub

 

[Dan_W]

Hi. As it happens, I've recently used the a similar fading technique when changing sheets; though mine didn't fade out (it would just fade in). It would be triggered by the WorksheetChange event.

When I tried your subroutines, they seemed fine - is the problem that it's too quick? VBA will move through the fading loop quicker if you turn the ScreenUpdating property off, so I'd leave it on if thats the problem. There are other things you could do to slow it down, but I just wanted to first check that I wasn't misunderstanding you.