'Applies a custom animation to the first shape on the slide.
Sub setting()
With ActiveSlide.Shapes(1).AnimationSettings
.EntryEffect = ppEffectFlyFromRight
.AdvanceMode = ppAdvanceOnClick
.SoundEffect.ImportFromFile FileName:="D:\Whistle.wav"
.TextLevelEffect = ppAnimateByFirstLevel
.TextUnitEffect = ppAnimateByParagraph
End With
End Sub