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