从VBA开始形状动画？

Question

是否可以从VBA代码触发形状动画？

POM

Answer 1

POM，

在任何版本低于2010 PowerPoint中，没有也不会出现可能：http://www.pptalchemy.co.uk/vba_Triggers.html。

但是，如果你正在使用PowerPoint 2010，MSDN详细说明了straightforward demo在PowerPoint中触发形状动画：

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 

让我知道，如果你还有其他问题/想法 -

〜约尔