Question

全部显示

指定效果结束后的变化。返回一个代表动画播放后效果的 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