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