OfficeTips Home || VBA Section || General Section || Download Section || Privacy Policy

Sub TestIt()



'To remove all the bookmark triggers on the 2nd shape on the slide

Call RemoveBookmarkTriggersForShape(ActivePresentation.Slides(1), ActivePresentation.Slides(1).Shapes(2))



'To remove all the bookmark triggers for "Bookmark 3"

Call RemoveTriggersForBookmark(ActivePresentation.Slides(1), "Bookmark 3")



End Sub



Sub RemoveBookmarkTriggersForShape(oSld As Slide, oShp As Shape)

Dim I As Long

Dim J As Long

'Enumerate all the triggers on the slide timeline

For I = oSld.TimeLine.InteractiveSequences.Count To 1 Step -1

    For J = oSld.TimeLine.InteractiveSequences(I).Count To 1 Step -1

        'Check if it is a bookmark trigger and delete it if it matches the shape name 

        With oSld.TimeLine.InteractiveSequences(I).Item(J)

            If .Timing.TriggerType = msoAnimTriggerOnMediaBookmark Then

                If .Shape.Name = oShp.Name Then

                    .Delete

                End If

            End If

        End With

    Next

Next

End Sub





Sub RemoveTriggersForBookmark(oSld As Slide, Bookmark As String)

Dim I As Long

Dim J As Long

For I = oSld.TimeLine.InteractiveSequences.Count To 1 Step -1

    For J = oSld.TimeLine.InteractiveSequences(I).Count To 1 Step -1

        With oSld.TimeLine.InteractiveSequences(I).Item(J)

            If .Timing.TriggerType = msoAnimTriggerOnMediaBookmark Then

                'Check for matching bookmark and delete it

                If .Timing.TriggerBookmark = Bookmark Then

                    .Delete

                End If

            End If

        End With

    Next

Next

End Sub