Sub MediaInfo()

Dim oShp As Shape

Dim oMBK As MediaBookmark

Dim I As Integer



' Assumes that this shape is either inserted video or audio.



Set oShp = ActiveWindow.Selection.ShapeRange(1)



' Note: Online video is also flagged as mediatype shape

' but it fails on all these properties, only SourceFullName property works

' See *Linked info



If oShp.Type = msoMedia Then

    Debug.Print "Lenght: " & oShp.MediaFormat.Length

    Debug.Print "Start Point: " & oShp.MediaFormat.StartPoint

    Debug.Print "End Point: " & oShp.MediaFormat.EndPoint



    Debug.Print "Fade In Duration: " & oShp.MediaFormat.FadeInDuration

    Debug.Print "Fade Out Duration: " & oShp.MediaFormat.FadeOutDuration



    Debug.Print "Is Embedded: " & oShp.MediaFormat.IsEmbedded

    Debug.Print "Is linked: " & oShp.MediaFormat.IsLinked



    If oShp.MediaFormat.IsLinked Then

        Debug.Print "Movie Source: " & oShp.LinkFormat.SourceFullName '*Linked info

    End If



    Debug.Print "Volume: " & oShp.MediaFormat.Volume

    Debug.Print "Muted: " & oShp.MediaFormat.Muted

    Debug.Print "Audio Compression Type: " & oShp.MediaFormat.AudioCompressionType

    Debug.Print "Audio Audio Sampling Rate: " & oShp.MediaFormat.AudioSamplingRate



    ' Applicable only to video types

    '=====================================================================================

    If oShp.MediaType = ppMediaTypeMovie Then

        Debug.Print "Video Compression Type: " & oShp.MediaFormat.VideoCompressionType

        Debug.Print "Video Frame Rate: " & oShp.MediaFormat.VideoFrameRate



        ' Set poster frame

        Call oShp.MediaFormat.SetDisplayPicture(1000)

        ' Set poster frame from external image.

        Call oShp.MediaFormat.SetDisplayPictureFromFile("C:\Users\Shyam\Pictures\mvp.jpg")



        Debug.Print "Height: " & oShp.MediaFormat.SampleHeight

        Debug.Print "Width: " & oShp.MediaFormat.SampleWidth



        ' Movie Container Shape

        Debug.Print oShp.AutoShapeType

    End If



    '=====================================================================================



    ' It is possible to create bookmarks in the audio/video timeline for the media shape.

    ' You can then trigger an animation when the media hits the bookmark during playback

    ' Pretty cool, eh? 

    ' See the subroutine below this one to see how you can assign a bookmark trigger



    '=====================================================================================



        ' Add media bookmark, position is in milliseconds

        ' Note: Can't assign 2 bookmarks at the same point in the timeline.

        ' Generates error if specified duration is greater than movie duration

        ' Generates error if specified bookmark already exists on the timeline





        Call oShp.MediaFormat.MediaBookmarks.Add(4000, "Bookmark A")

        Call oShp.MediaFormat.MediaBookmarks.Add(8000, "Bookmark B")

        Call oShp.MediaFormat.MediaBookmarks.Add(9000, "Bookmark C")



        'Count the number of bookmarks

        Debug.Print "Bookmark count: " & oShp.MediaFormat.MediaBookmarks.Count

        

        'Retrieve info from the 1st bookmark

        For I = 1 To oShp.MediaFormat.MediaBookmarks.Count

                Set oMBK = oShp.MediaFormat.MediaBookmarks(I)

                Debug.Print oMBK.Index, "Name: " & oMBK.Name, "Position: " & oMBK.Position

        Next



        'Delete all the bookmarks

        For I = oShp.MediaFormat.MediaBookmarks.Count To 1 Step -1

                Set oMBK = oShp.MediaFormat.MediaBookmarks(I)

                oMBK.Delete

        Next

        End If

End Sub





Sub AddBookmarkTrigger()

Dim oShp As Shape         ' Shape with animation that needs to be triggered via bookmark

Dim oShpMovie As Shape    ' Media shape



'Assumes that we have a media shape with 'Bookmark 1' on slide 1 of the presentation

With ActivePresentation.Slides(1)

        Set oShpMovie = .Shapes(1)

        Set oShp = .Shapes(2)

        ' Assign an trigger to shape

        ' if no bookmark name is specified, it will default to 1st. If no bookmark exists then it fails

        Call .TimeLine.InteractiveSequences.Add.AddTriggerEffect(oShp, msoAnimEffectPathCircle, _   

                                msoAnimTriggerOnMediaBookmark, oShpMovie, "Bookmark 1")

End With



End Sub