zhuh_0318 发表于 2017-10-18 11:25:00

VBA之AddEffect 方法

　　 　　 　　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

2020-mark 发表于 2017-10-19 04:42:24

真好。。。。。。。。。

sunnysun118 发表于 2017-10-20 12:09:19

好啊，，不错、、、、
页: [1]
查看完整版本: VBA之AddEffect 方法