0

プレゼンテーションで見つけた各図形のアニメーションの種類を知りたいです。そのために次の行を使用しています。

 '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 になり、アニメーションの種類を示す他の変数が見つかりません。その情報を提供する変数はどこにありますか?

4

2 に答える 2

2

これを使用できます：

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
于 2013-06-25T16:01:43.510 に答える
1

ここでアニメーションの種類を見つけました：

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

それが誰かに役立つことを願っています。

于 2013-06-28T12:01:52.137 に答える