利用VBA在PowerPoint添加自定义动画路径

banjinjiu

利用VBA在PowerPoint添加自定义动画路径
http://ar.newsmth.net/thread-89abc3ebeca4aa-1.html
原创：FinalSoldier (令狐虫)，本人做了部分修改。

1. 
   
2. Sub AddMotionPath3()
   
3.     Dim shpNew As Shape
   
4.     Dim effNew As Effect
   
5.     Dim aniMotion As AnimationBehavior
   
6.     Set shpNew = ActivePresentation.Slides(1).Shapes _
   
7.         .AddShape(Type:=msoShape5pointStar, Left:=10, _
   
8.         Top:=0, Width:=100, Height:=200)
   
9.     Set shpNew = ActivePresentation.Slides(1).Shapes(3)
   
10.     Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
    
11.         .AddEffect(Shape:=shpNew, effectId:=msoAnimEffectCustom, _
    
12.         Trigger:=msoAnimTriggerOnPageClick)
    
13.     Set aniMotion = effNew.Behaviors.Add(msoAnimTypeMotion)   
    
14.   With aniMotion.MotionEffect
    
15.       .Path = "M 0 0 L 0.1 0.05 L 0.2 -0.15 L 0.3 -0.05 L 0.4 -0.15 L 0.5 -0.05 L 0.6 -0.15 L 0.7 -0.05 L 0.8 -0.15 L 0.9 -0.05 L 1.0 -0.15 L 0.9 -0.05 L 0.8 -0.15 L 0.7 -0.05 L 0.6 -0.15 L 0.5 -0.05 L 0.4 -0.15 L 0.3 -0.05 L 0.2 -0.15 L 0.1 0.05 "
    
16.   End With     
    
17. End Sub

复制代码

1.放映时，新增加的形状不可见，只有进行动画时该形状才可见，
2.动作路径不可见，但动作路径是对的。
改的部分：
原作是“.Path = "M 0 0 L 0.17014 0.05157 L 0.27761 -0.15518 L 0.36268 -0.04972 L 0.42987 -0.10338 " ”。
本人是".path=”是现在的。我想让这个图形能来回，当然要是能设置像正弦函数、余弦函数图像曲线、圆曲线、椭圆方程曲线就好了。希望后来者能更好的实现。
感谢原作者。

carlyucy

这个。。。。。好难！！

Tracy.ming

技术含量太高

banjinjiu

在Path语法中，大写代表相对位置，小写代表绝对位置。
例如：M 0 0 就意味着从形状的中心位置开始，但是m0 0 就意味着从幻灯片的左上角开始。
类型        语法                                      备注
移动 M        M StartPoint        
直线 L        E EndPoint        
曲线 C        "C ControlPoint1
                ControlPoint2  EndPoint"       三次贝兹曲线
闭合 Z        Z        
结束 E        E        
详见【灰师太】PPT动画大师 #8设置行为和属性行为
http://www.rapidbbs.cn/forum.php?mod=viewthread&tid=46200&extra=page%3D1

1金猪1

技术活啊！！！

ning84

banjinjiu 发表于 2013-8-11 07:32
在Path语法中，大写代表相对位置，小写代表绝对位置。
例如：M 0 0 就意味着从形状的中心位置开始，但是m0 ...

谢谢你给出的列子。在学习一边官网的示例。

AnimationBehaviors 对象 (PowerPoint) | Microsoft Learn  https://learn.microsoft.com/zh-c ... .animationbehaviors

1. Sub AnimationObject()
   
2.     Dim timeMain As TimeLine
   
3.     'Reference the main animation timeline
   
4.     Set timeMain = ActivePresentation.Slides(1).TimeLine
   
5.     'Add a five-second animated rotation behavior
   
6.     'as the first animation in the main animation sequence
   
7.     timeMain.MainSequence(1).Behaviors.Add Type:=msoAnimTypeRotation, Index:=1
   
8. End Sub

复制代码