Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

Setting an Animation for a Shape or a Range of Shapes

'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