Setting an Animation for a Shape or a Range of Shapes : Slide Shape « PowerPoint « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. PowerPoint
  3. Slide Shape

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








Related examples in the same category

1.add a bent-up arrow to the upper-right corner of the penultimate slide in the active presentation:
2.Deleting a Shape
3.Selecting All Shapes
4.Repositioning and Resizing a Shape
5.Works with the first shape on the third slide of the presentation, moving it 100 points to the left and 200 points down, and rotating it 90 degrees counterclockwise:
6.Copying Formatting from One Shape to Another
7.Finding Out Whether a Shape Has a Text Frame