VBA - how to determine if a shape is visible when the slide first loads

[roytang]

Hi,

In 2002 and above, each shape can have several different animations,
including entry and exit effects. Is there an easy way to determine
whether a shape is visible at the start of the slide being displayed?

I was thinking I just need to check if the first animation in the
timeline for that shape is an entrance effect, but I'm not sure how to
determine whether an effect is an entrance effect or not.

Any suggestions? Thanks

Roy

 

[John Wilson]

See if this helps at all ( I don't guarantee that 52 is the correct value but
it seems to work and there are 52 entrance animations)

Sub whattype()
Dim oeff As Effect
Dim i As Integer
Dim strtype As String
With ActivePresentation.Slides(1).TimeLine
For i = 1 To .MainSequence.Count
Set oeff = .MainSequence(i)
If oeff.EffectType < 53 And oeff.Exit = False Then strtype = "Entrance"
If oeff.EffectType < 53 And oeff.Exit = True Then strtype = "Exit"
If oeff.EffectType > 52 Then strtype = "Other"
MsgBox oeff.DisplayName & " (" & strtype & ")"
Next
End With
End Sub

 

[Shyam Pillai]

Roy,
First ascertain if the shape is animated or not using this routine:
http://skp.mvps.org/pptxp004.htm

If animated, they check if the first animation is an entrance or not.
How to enumerate an timeline is explained here:
http://skp.mvps.org/ppttimeline1.htm



--
Regards,
Shyam Pillai

Animation Carbon: Copy/Paste/Share animation libraries.
www.animationcarbon.com