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




© 2023 Better Solutions Limited. All Rights Reserved. © 2023 Better Solutions Limited TopPrev