Here a sample application is developed that controls the next , previous actions of the Powerpoint
Steps
1.Create a new form with two Buttons (for VB)
2.Write the following code with the form
Imports System.Runtime.InteropServices
Imports Microsoft.Office.Interop.PowerPoint
Public Class Form1
Dim oPP As Application
Dim value As Presentation
Dim hasopened As Boolean
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (hasopened) Then
Try
oPP.ActivePresentation.SlideShowWindow.View.Next()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
oPP = GetObject(, "PowerPoint.Application")
hasopened = True
value = oPP.ActivePresentation
Catch ex As Exception
MsgBox("No Presentations Opened")
hasopened = False
Me.Close()
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If (hasopened) Then
Try
oPP.ActivePresentation.SlideShowWindow.View.Previous()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
End Class
3.Open PPT,go to next,previous slides
Reference :
http://msdn.microsoft.com/en-us/library/ff763170.aspx
Steps
1.Create a new form with two Buttons (for VB)
2.Write the following code with the form
Imports System.Runtime.InteropServices
Imports Microsoft.Office.Interop.PowerPoint
Public Class Form1
Dim oPP As Application
Dim value As Presentation
Dim hasopened As Boolean
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (hasopened) Then
Try
oPP.ActivePresentation.SlideShowWindow.View.Next()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
oPP = GetObject(, "PowerPoint.Application")
hasopened = True
value = oPP.ActivePresentation
Catch ex As Exception
MsgBox("No Presentations Opened")
hasopened = False
Me.Close()
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If (hasopened) Then
Try
oPP.ActivePresentation.SlideShowWindow.View.Previous()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
End Class
3.Open PPT,go to next,previous slides
Reference :
http://msdn.microsoft.com/en-us/library/ff763170.aspx