设置或返回 MsoTriState 类型常数,该常数代表动画结束时是否应该减速。可读写。
MsoTriState 可以是下列 MsoTriState 类型常数之一。 |
msoCTrue 不应用于此属性。 |
msoFalse 默认值。动画结束时不减速。 |
msoTriStateMixed 不应用于此属性。 |
msoTriStateToggle 不应用于此属性。 |
msoTrue 动画结束时减速。 |
expression.SmoothEnd
expression 必选。该表达式返回“应用于”列表中的对象之一。
以下示例向幻灯片添加一个形状并使该形状具有动画效果,然后指示该形状在动画结束时减速。
Sub AddShapeSetTiming()
Dim effDiamond As Effect
Dim shpRectangle As Shape
'Adds shape 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)
'Sets duration of effect and slows animation at end
With effDiamond.Timing
.Duration = 5
.SmoothEnd = msoTrue
End With
End Sub