Timing.Decelerate 属性 (PowerPoint)
设置或返回应发生计时减速的持续时间的百分比。 读/写。
语法
expression。 Decelerate
表达 一个代表 Timing 对象的变量。
返回值
单精度
备注
例如,数值 0.9 表示减速过程以默认速度启动,经过动画持续时间的 10% 之后开始减速。
示例
本示例添加一个形状并添加一个动画,该动画以默认速度启动,在动画完成 70% 以后开始减速。
Sub AddShapeSetTiming()
Dim effDiamond As Effect
Dim shpRectangle As Shape
'Adds rectangle and sets animation effect
Set shpRectangle = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShapeRectangle, Left:=100, _
Top:=100, Width:=50, Height:=50)
Set effDiamond = ActivePresentation.Slides(1).TimeLine _
.MainSequence.AddEffect(Shape:=shpRectangle, _
effectId:=msoAnimEffectPathDiamond)
'Slows the effect after seventy percent of the animation has finished
With effDiamond.Timing
.Decelerate = 0.3
End With
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。