Sequence.ConvertToAfterEffect Method
Specifies what an effect should do after it is finished. Returns an ColorEffect object that represents an after effect.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
Function ConvertToAfterEffect ( _
Effect As Effect, _
After As MsoAnimAfterEffect, _
DimColor As Integer, _
DimSchemeColor As PpColorSchemeIndex _
) As Effect
'Usage
Dim instance As Sequence
Dim Effect As Effect
Dim After As MsoAnimAfterEffect
Dim DimColor As Integer
Dim DimSchemeColor As PpColorSchemeIndex
Dim returnValue As Effect
returnValue = instance.ConvertToAfterEffect(Effect, _
After, DimColor, DimSchemeColor)
Effect ConvertToAfterEffect(
Effect Effect,
MsoAnimAfterEffect After,
int DimColor,
PpColorSchemeIndex DimSchemeColor
)
Parameters
- Effect
Type: Microsoft.Office.Interop.PowerPoint.Effect
The effect to which the after effect will be added.
- After
Type: Microsoft.Office.Interop.PowerPoint.MsoAnimAfterEffect
The behavior of the after effect.
- DimColor
Type: System.Int32
A single color to apply the after effect.
- DimSchemeColor
Type: Microsoft.Office.Interop.PowerPoint.PpColorSchemeIndex
A predefined color scheme to apply to the after effect.
Return Value
Type: Microsoft.Office.Interop.PowerPoint.Effect
Effect
Remarks
Do not use both the DimColor and DimSchemeColor arguments in the same call to this method. An after effect may have one color, or use a predefined color scheme, but not both.
Examples
The following example sets a dim color for an after effect on the first shape on the first slide in the active presentation. This example assume there is a shape on the first slide.
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