【ComObjActive操作PPT】之为选中对象添加动画

动画效果对应的index可在office帮助中查询。

关于AddEffect函数的说明：
AddEffect 方法
expression.AddEffect(Shape, effectId, Level, trigger, Index)
expression 必选。该表达式返回“应用于”列表中的对象之一。
Shape 必选。Shape 对象。添加动画效果的形状。
effectId 必选。MsoAnimEffect 类型。要应用的动画效果。
Level 可选。MsoAnimateByLevel 类型。对图表、图示或文本，将应用相应的动画效果级别。默认值为 msoAnimationLevelNone。
trigger 可选。MsoAnimTriggerType 类型。触发动画效果的动作。默认值为 msoAnimTriggerOnPageClick。
Index 可选。Long 类型。效果在动画效果集合中放置的位置。默认值为 -1（添加到末尾）。

小火箭：
1.[AnimationBehaviors.Add 方法 (PowerPoint) https://docs.microsoft.com/zh-cn/office/vba/api/powerpoint.animationbehaviors.add
2.指定动画滤镜效果 [MsoAnimFilterEffectType 枚举 (PowerPoint) https://docs.microsoft.com/zh-cn/office/vba/api/powerpoint.msoanimfiltereffecttype
3.指定动画效果类型 [MsoAnimEffect 枚举 (PowerPoint) https://docs.microsoft.com/zh-cn/office/vba/api/powerpoint.msoanimeffect

  F2:: ;给选中的所有对象添加整体动画,同时出现
    ox:= ComObjActive("powerpoint.Application")
    SlideSelected:= ox.ActiveWindow.Selection.SlideRange(1) ;选定内容中的幻灯片范围。
    ShapeSelected:= ox.ActiveWindow.Selection.ShapeRange(1) ;选定内容中的形状范围。
    SlideSelected.TimeLine.MainSequence.AddEffect(ShapeSelected, 22, 0, 1, -1)
    SlideSelected:= ox.ActiveWindow.Selection.SlideRange ;选定内容中的幻灯片范围。
    for ShapeSelected in ox.ActiveWindow.Selection.ShapeRange
    SlideSelected.TimeLine.MainSequence.AddEffect(ShapeSelected, 22, 0, 2, -1) ;对所选对象 添加 擦除动画
  Return
  F3:: ;给选中的每个对象都添加动画,动画先后出现
    ox:= ComObjActive("powerpoint.Application")
    SlideSelected:= ox.ActiveWindow.Selection.SlideRange ;选定内容中的幻灯片范围。
    for ShapeSelected in ox.ActiveWindow.Selection.ShapeRange
    SlideSelected.TimeLine.MainSequence.AddEffect(ShapeSelected, 22, 0, 1, -1) ;对所选对象 添加 擦除动画
  Return