PPT.WorkWithMediaPlayer in MS PowerPoint 2010 to Work with Methods of Player Class in VB.NET

Posted in VB.NET | VBA on November 08, 2019

Tags: MS PowerPoint 2010, Use of PPT.WorkWithMediaPlayer, Work with Methods of Player Class

In this article I am going to explain about how to work with methods of player class in a Microsoft PowerPoint 2010 presentation.

2252

Introduction

In this article I am going to explain about how to work with methods of player class in a Microsoft PowerPoint 2010 presentation. For this we use PPT.WorkWithMediaPlayer in Microsoft PowerPoint 2010. Using PPT.WorkWithMediaPlayer you can Work with various Methods of Player Class in a Microsoft PowerPoint 2010 presentation.

In this application you have to insert a video in your presentation. For this click on insert tab and then click on Video then Video from file. Now select video file then click on insert.

Microsoft Office 2010 offer some powerful tools, using this tools you can create application. Using Microsoft Visual Basic for Applications (VBA) you can create your own application according to your need. These application can performer some specific task.

For creating application we can use

VBA host of Excel 2010
VBA host of PowerPoint 2010
VBA host of Word 2010

NOTE : OneNote 2010 is not a VBA host.

Code that we use in this application are given below

Private shapeID As Integer
Private plyr As Player

Sub TestPlayer()
    Dim shp As Shape
    For Each shp In ActivePresentation.Slides(1).Shapes

        ' Find the first media shape on the slide:

        If shp.Type = msoMedia Then
            shapeID = shp.id
            Exit For
        End If
    Next shp

    ' Add some bookmarks to the media. Delete all existing bookmarks
    ' first, so you can execute this code multiple times.

    Dim i As Integer
    With shp.MediaFormat
      For i = .MediaBookmarks.Count To 1 Step -1
            .MediaBookmarks(i).Delete()
        Next i
    End With

    With shp.MediaFormat.MediaBookmarks
        .Add(1000, "Bookmark 1")
        .Add(5000, "Bookmark 2")
        .Add(8000, "Bookmark 3")
    End With

    ' Store away a reference to the Player instance.

    plyr = Application.Windows(1).View.Player(shapeID)
End Sub

Sub Play()
    plyr.Play()
End Sub

Sub Pause()
    plyr.Pause()
End Sub

Sub GotoNextBookmark()
    plyr.GotoNextBookmark()
End Sub

Sub GotoPreviousBookmark()
    plyr.GotoPreviousBookmark()
End Sub

Sub GotoPosition()
    plyr.CurrentPosition = 4000

End Sub