Dzwebs.Net

撰写电脑技术杂文十余年

VBA之AddEffect 方法

Admin | 2015-2-26 10:49:17 | 被阅次数 | 4608

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  AddEffect 方法

  expression.AddEffect(Shape, effectId, Level, trigger, Index)

  expression  必选。该表达式返回“应用于”列表中的对象之一。

  Shape  必选。Shape 对象。添加动画效果的形状。

  effectId  必选。MsoAnimEffect 类型。要应用的动画效果。

  Level  可选。MsoAnimateByLevel 类型。对图表、图示或文本,将应用相应的动画效果级别。默认值为 msoAnimationLevelNone。

  trigger  可选。MsoAnimTriggerType 类型。触发动画效果的动作。默认值为 msoAnimTriggerOnPageClick。

  Index  可选。Long 类型。效果在动画效果集合中放置的位置。默认值为 -1(添加到末尾)。

  示例:以下示例将一个弹跳的动画添加到第一张幻灯片的第一个形状范围内。本示例假定形状范围包含在第一张幻灯片中选定的一个或多个形状。

Sub AddBouncingAnimation()

    Dim sldActive As Slide
    Dim shpSelected As Shape

    Set sldActive = ActiveWindow.Selection.SlideRange(1)
    Set shpSelected = ActiveWindow.Selection.ShapeRange(1)

    ' Add a bouncing animation.
    sldActive.TimeLine.MainSequence.AddEffect _
        Shape:=shpSelected, effectId:=msoAnimEffectBounce

End Sub


网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231