CODEWITHSUNDEEP
vbaanimationpowerpoint
Iban Arriola
Iban Arriola

Reputation: 2796

How to know animation type in VBA

I want to know what animation type is in each shape that I found in a presentation. I am using the following lines for that: 

 'to know if the shape has animation 
 If ActivePresentation.Slides(slideNum).Shapes(shapeNum).AnimationSettings.Animate = msoTrue Then
    animationType = ActivePresentation.Slides(slideNum).Shapes(shapeNum).AnimationSettings.EntryEffect

With there in some cases I can different answers like ppEffectFlyFromLeft or ppEffectFlyFromRight but for example for Fade and Zoom animation type the result is ppEffectCut and I cannot find any other variable that says me what kind of animation is. Where can I find the variable that gives me that information?

Upvotes: 0

Views: 2578

Answers (2)

Iban Arriola
Iban Arriola

Reputation: 2796

I found the animation type here: 

ActivePresentation.Slides(slideNum).TimeLine.MainSequence(shapeAniNum).EffectType

Hope it will help to someone.

Upvotes: 2

S Nash
S Nash

Reputation: 2509

You can use this:

Sub GetEntryEffectFromSlide()

      Dim sSlideObject As Slide
      Dim lTypeOfEffect As Long

      ' Get the slide show transition EntryEffect property for the slide.
      For Each sSlideObject In ActivePresentation.Slides
         lTypeOfEffect = sSlideObject.SlideShowTransition.EntryEffect
      Next sSlideObject

End Sub

You can use the following constants with the EntryEffect property. 

Appear:
ppEffectAppear
Fly Effects:
ppEffectFlyFromBottom
ppEffectFlyFromBottomLeft
ppEffectFlyFromBottomRight
ppEffectFlyFromLeft
ppEffectFlyFromRight
ppEffectFlyFromTop
ppEffectFlyFromTopLeft
ppEffectFlyFromTopRight
Blinds Effects:
ppEffectBlindsHorizontal
ppEffectBlindsVertical
Box Effects:
ppEffectBoxInm
ppEffectBoxOut
Checkerboard Effects:
ppEffectCheckerboardAcross
pEffectCheckerboardDown
Crawl Effects:
ppEffectCrawlFromDown
ppEffectCrawlFromLeft
ppEffectCrawlFromRight
ppEffectCrawlFromUp
Dissolve:
ppEffectDissolve
Flash Effects:
ppEffectFlashOnceFast
ppEffectFlashOnceMedium
ppEffectFlashOnceSlow
Peek Effects:
ppEffectPeekFromDown
ppEffectPeekFromLeft
ppEffectPeekFromRight
ppEffectPeekFromUp
Random Effects:
ppEffectRandomBarsHorizontal
ppEffectRandomBarsVertical
ppEffectRandom
Spiral:
ppEffectSpiral
Split Effects:
ppEffectSplitHorizontalIn
ppEffectSplitHorizontalOut
ppEffectSplitVerticalIn
ppEffectSplitVerticalOut
Stretch Effects:
ppEffectStretchAcross
ppEffectStretchDown
ppEffectStretchLeft
ppEffectStretchRight
ppEffectStretchUp
Strips Effects:
ppEffectStripsDownLeft
ppEffectStripsDownRight
ppEffectStripsLeftDown
ppEffectStripsLeftUp
ppEffectStripsRightDown
ppEffectStripsRightUp
ppEffectStripsUpLeft
ppEffectStripsUpRight
Swivel:
ppEffectSwivel
Wipe Effects:
ppEffectWipeDown
ppEffectWipeLeft
ppEffectWipeRight
ppEffectWipeUp
Zoom Effects:
ppEffectZoomBottom
ppEffectZoomCenter
ppEffectZoomIn
ppEffectZoomInSlightly
ppEffectZoomOut
ppEffectZoomOutSlightly
Uncover Effects:
ppEffectUncoverDown
ppEffectUncoverLeft
ppEffectUncoverLeftDown
ppEffectUncoverLeftUp
ppEffectUncoverRight
ppEffectUncoverRightDown
ppEffectUncoverRightUp
ppEffectUncoverUp
Cover Effects:
ppEffectCoverDown
ppEffectCoverLeft
ppEffectCoverLeftDown
ppEffectCoverLeftUp
ppEffectCoverRight
ppEffectCoverRightDown
ppEffectCoverRightUp
ppEffectCoverUp
Cut Effects:
ppEffectCut ppEffectCutThroughBlack
Fade:
ppEffectFade
No Effect:
ppEffectNone
Mixed:
ppEffectMixed

Upvotes: 2

Related Questions