我想知道在演示中发现的每个形状中的动画类型是什么。我使用以下行：
'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或ppEffectFlyfroRight，但例如，对于"淡入淡出"one_answers"缩放"动画类型，结果是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
希望它能对某人有所帮助。