VBA/ Powerpoint question

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

jeff@aol.com - 08 Nov 2007 11:19 GMT

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

Reply to this Message

Shyam Pillai - 08 Nov 2007 13:53 GMT

Are you trying to create a trigger?
msoAnimTriggerOnShapeClick is applicable to trigger shapes.

Signature

Regards,
Shyam Pillai

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

>I want to change the first custom animation of everyslide in
> powerpoint toclick on shape
[quoted text clipped - 13 lines]
> Set oActivePres = Nothing
> End Sub

Reply to this Message