FilterEffect.Reveal property (PowerPoint)
Determines how the embedded objects will be revealed. Read/write.
Syntax
expression. Reveal
expression A variable that represents a FilterEffect object.
Return value
MsoTriState
Remarks
Setting a value of msoTrue for the Reveal property when the filter effect type is msoAnimFilterEffectTypeWipe will make the shape appear. Setting a value of msoFalse will make the object disappear. In other words, if your filter is set to wipe and Reveal is true, you will get a wipe-in effect, and when Reveal is false, you will get a wipe-out effect.
The value of the Reveal property can be one of these MsoTriState constants.
msoFalse |
msoTrue |
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
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for