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