VBA/ Powerpoint question

  • Thread starter Thread starter jeff
  • Start date Start date
J

jeff

I want to change the first custom animation of everyslide in
powerpoint toclick on shape

What is wrong with this statement?
"ActivePresentation.Slides(i).TimeLine.MainSequence.Item(1).Timing.TriggerType=msoAnimTriggerOnShapeClick"
below

Sub Macro1
Set oActivePres = ActivePresentation
With oActivePres
For I = 1 To .Slides.Count

ActivePresentation.Slides(i).TimeLine.MainSequence.Item(1).Timing.TriggerType=msoAnimTriggerOnShapeClick
Next I
End With
Set oActivePres = Nothing
End Sub
 
Are you trying to create a trigger?
msoAnimTriggerOnShapeClick is applicable to trigger shapes.


--
Regards,
Shyam Pillai

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