PowerPoint VBA教程:ConvertToAfterEffect方法

指定效果结束后的变化。返回一个代表动画播放后效果的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参数。动画播放后效果可能具有一种颜色,或使用预定义配色方案,但不能同时使用这两种颜色。

VBA示例

以下示例为当前演示文稿中第一张幻灯片第一个形状上的动画播放后效果设置一种暗色。本示例假定第一张幻灯片中有一个形状。


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

上页:PowerPoint VBA教程:Convert方法 下页:PowerPoint VBA教程:ConvertToAnimateBackground方法

PowerPoint VBA教程:ConvertToAfterEffect方法

PowerPoint VBA教程:ConvertToAnimateBackground方法 PowerPoint VBA教程:ConvertToAnimateInReverse方法
PowerPoint VBA教程:ConvertToBuildLevel方法 PowerPoint VBA教程:ConvertToShape方法
PowerPoint VBA教程:ConvertToTextUnitEffect方法 PowerPoint VBA教程:Copy方法
PowerPoint VBA教程:CreateNewDocument方法 PowerPoint VBA教程:CustomDrop方法
PowerPoint VBA教程:CustomLength方法 PowerPoint VBA教程:Cut方法
PowerPoint VBA教程:Delete方法 PowerPoint VBA教程:DeleteText方法
PowerPoint VBA教程:DiscardConflict Method PowerPoint VBA教程:Distribute方法
PowerPoint VBA教程:DoVerb方法 PowerPoint VBA教程:DrawLine方法
PowerPoint VBA教程:Duplicate方法 PowerPoint VBA教程:EndConnect方法
PowerPoint VBA教程:EndDisconnect方法 PowerPoint VBA教程:EndNamedShow方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号