VBA에서 도형 애니메이션 시작?

Question

VBA 코드에서 도형 애니메이션을 트리거 할 수 있습니까?

치어

Answer 1

으로 Pom, 파워 포인트 2010 이하의 모든 버전에서

, 아니이 가능 나타나지 않습니다 http://www.pptalchemy.co.uk/vba_Triggers.html. 당신은 파워 포인트 2010을 사용하는 경우

그러나, MSDN은 파워 포인트에서 도형 애니메이션을 트리거에 대한 straightforward demo 자세한 사항 : - JOL

~

Sub TestShapeAnimation() 

    With ActivePresentation.Slides(1) 
     Dim shp1, shp2, shp3 As Shape 
     ' This sets the initial shape, with which we will test the animation sequences. 
     Set shp1 = .Shapes.AddShape(msoShape12pointStar, 20, 20, 100, 100) 

     ' This creates the animations. 
     .TimeLine.MainSequence.AddEffect shp1, msoAnimEffectFadedSwivel, , msoAnimTriggerAfterPrevious 
     .TimeLine.MainSequence.AddEffect shp1, msoAnimEffectPathBounceRight, , msoAnimTriggerAfterPrevious 
     .TimeLine.MainSequence.AddEffect shp1, msoAnimEffectSpin, , msoAnimTriggerAfterPrevious 

     ' This acquires the animation... [i] 
     shp1.PickupAnimation 

     ' [i] ... and applies it to another shape. 
     Set shp2 = .Shapes.AddShape(msoShapeHexagon, 100, 20, 100, 100) 
     shp2.ApplyAnimation 

     ' Another shape creation/animation application. 
     Set shp3 = .Shapes.AddShape(msoShapeCloud, 180, 20, 100, 100) 
     shp3.ApplyAnimation 

    End With 

End Sub 

는 추가 질문/생각이 있으면 알려주세요