【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

给TA捐赠
共{{data.count}}人
人已捐赠
办公社区推荐

【ComObjActive操作PPT】之改变选中对象的颜色、形状、线宽

2022-7-31 22:00:38

办公

【ComObjActive操作PPT】之对齐选定对象及置于顶层及底层

2022-8-3 19:36:35

2 条回复 A文章作者 M管理员
  1. 1河许人
    1河许人给您打赏了¥1
  2. 1河许人

    配图相关性不高

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索