VBA Code

Public Sub FadeOut() 
   Dim icount As Integer 

   For icount := 1 To 10 
      ActiveWindow.Selection.ShapeRange.PictureFormat.IncrementContrast -0.04 
      ActiveWindow.Selection.Copy 
      ActiveWindow.View.Paste 
   End If 

   ActiveWindow.Selection.SlideRange.Shapes.SelectAll 
   ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True 
   ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True 

   With ActiveWindow.Selection.ShapeRange.AnimationSettings 
      .Animate = msoTrue 
      .TextLevelEffect = ppAnimateByAllLevels 
      .AnimateBackground = msoTrue 

      .AdvanceMode = ppAdvancedOnTime 
      .AdvanceTime = 1 
   End With 

End Sub