Powerpoint VisualBasic Script

Sub slide()
    With ActivePresentation.Slides(1)
        With .SlideShowTransition
            .EntryEffect = ppEffectDissolve
            .Speed = ppTransitionSpeedMedium
    
            .AdvanceOnClick = msoTrue
            .AdvanceOnTime = msoTrue
            .AdvanceTime = 30
            .SoundEffect.ImportFromFile _
                FileName:="d:\Crescendo.wav"
            .LoopSoundUntilNext = msoFalse
        End With
    End With
End Sub