Reveal Property

Microsoft PowerPoint Visual Basic

Show All Show All

Reveal Property

Sets or returns a MsoTriState constant that determines how the embedded objects will be revealed. Read/write.

MsoTriState can be one of these MsoTriState constants.
msoCTrue Doesn't apply to this property.
msoFalse Comments, revisions, and personal information remain in the presentation.
msoTriStateMixed Doesn't apply to this property.
msoTriStateToggle Doesn't apply to this property.
msoTrue Removes comments, revisions, and personal information when saving the presentation.

expression.Reveal

expression    Required. An expression that returns one of the objects in the Applies To list.

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.

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