我想知道我在演示文稿中找到的每个形状中的动画类型。我为此使用以下几行：
'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
在某些情况下，我可以得到不同的答案，例如 ppEffectFlyFromLeft 或 ppEffectFlyFromRight 但例如对于 Fade 和 Zoom 动画类型，结果是 ppEffectCut 并且我找不到任何其他变量来说明我是哪种动画。我在哪里可以找到为我提供该信息的变量？
你可以使用这个：
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
您可以将以下常量与 EntryEffect 属性一起使用。
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
我在这里找到了动画类型：
ActivePresentation.Slides(slideNum).TimeLine.MainSequence(shapeAniNum).EffectType
希望它对某人有所帮助。