指定效果结束后的变化。返回一个代表动画播放后效果的 Effect 对象。
expression.ConvertToAfterEffect(Effect, After, DimColor, DimSchemeColor)
expression 必选。该表达式返回一个 Sequence 对象。
Effect 必选。Effect 对象。将添加动画播放后效果的效果。
After 必选。MsoAnimAfterEffect 类型。动画播放后效果的动作。
MsoAnimAfterEffect 可以是下列 MsoAnimAfterEffect 类型常数之一。 |
msoAnimAfterEffectDim |
msoAnimAfterEffectHide |
msoAnimAfterEffectHideOnNextClick |
msoAnimAfterEffectMixed |
msoAnimAfterEffectNone |
DimColor 可选。MsoRGBType 类型。应用动画播放后效果的单种颜色。
DimSchemeColor 可选。PpColorSchemeIndex 类型。应用于动画播放后效果的预定义配色方案。
PpColorSchemeIndex 可以是下列 PpColorSchemeIndex 类型常数之一。 |
ppAccent1 |
ppAccent2 |
ppAccent3 |
ppBackground |
ppFill |
ppForeground |
ppNotSchemeColor 默认值 |
ppSchemeColorMixed |
ppShadow |
ppTitle |
在此方法的一次调用中不能同时使用 DimColor 和 DimSchemeColor 参数。动画播放后效果可能具有一种颜色,或使用预定义配色方案,但不能同时使用这两种颜色。
以下示例为当前演示文稿中第一张幻灯片第一个形状上的动画播放后效果设置一种暗色。本示例假定第一张幻灯片中有一个形状。
Sub ConvertToDim()
Dim shpSelected As Shape
Dim sldActive As Slide
Dim effConvert As Effect
Set sldActive = ActivePresentation.Slides(1)
Set shpSelected = sldActive.Shapes(1)
' Add an animation effect.
Set effConvert = sldActive.TimeLine.MainSequence.AddEffect _
(Shape:=shpSelected, effectId:=msoAnimEffectBounce)
' Add a dim after effect.
Set effConvert = sldActive.TimeLine.MainSequence.ConvertToAfterEffect _
(Effect:=effConvert, After:=msoAnimAfterEffectDim, _
DimColor:=RGB(Red:=255, Green:=255, Blue:=255))
End Sub