全部显示

ConvertToAfterEffect 方法

指定效果结束后的变化。返回一个代表动画播放后效果的 Effect 对象。

expression  必选。该表达式返回一个 Sequence 对象。

Effect  必选。Effect 对象。将添加动画播放后效果的效果。

After  必选。MsoAnimAfterEffect 类型。动画播放后效果的动作。

DimColor  可选。MsoRGBType 类型。应用动画播放后效果的单种颜色。

DimSchemeColor  可选。PpColorSchemeIndex 类型。应用于动画播放后效果的预定义配色方案。

说明

在此方法的一次调用中不能同时使用 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