FilterEffect.Subtype Property (PowerPoint)
Sets or returns the subtype of the filter effect. Read/write.
Syntax
expression .Subtype
expression A variable that represents a FilterEffect object.
Return Value
MsoAnimFilterEffectSubtype
Example
The following example adds a shape to the first slide of the active presentation and sets a filter effect animation behavior.
Sub ChangeFilterEffect()
Dim sldFirst As Slide
Dim shpHeart As Shape
Dim effNew As Effect
Dim bhvEffect As AnimationBehavior
Set sldFirst = ActivePresentation.Slides(1)
Set shpHeart = sldFirst.Shapes.AddShape(Type:=msoShapeHeart, _
Left:=100, Top:=100, Width:=100, Height:=100)
Set effNew = sldFirst.TimeLine.MainSequence.AddEffect _
(Shape:=shpHeart, EffectID:=msoAnimEffectChangeFillColor, _
Trigger:=msoAnimTriggerAfterPrevious)
Set bhvEffect = effNew.Behaviors.Add(msoAnimTypeFilter)
With bhvEffect.FilterEffect
.Type = msoAnimFilterEffectTypeWipe
.Subtype = msoAnimFilterEffectSubtypeUp
.Reveal = msoTrue
End With
End Sub