Animation Effects Loss

[John Wilson]

Do you mean they are hidden with code or with an animation??

You might try

Sub OnSlideShowTerminate(ByVal Wn As SlideShowWindow)
     ' make visible code goes here
End Sub

This will only work reliably if other code is being run in the presentation