OpenPowerPoint.vb

gistfile1.vb

Imports System
Imports Microsoft.Office
Imports PowerPoint = Microsoft.Office.Interop.PowerPoint

Public Class Form1

    Private Sub OpenPowerPoint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenPowerPoint.Click
        Dim PPTApp As PowerPoint.Application = New PowerPoint.Application

        PPTApp.Visible = True

        Dim PPTFileName As String = "test.pptx"
        Dim PPTFilePath As String = System.Environment.CurrentDirectory & "\..\..\" & _ 
                                                                          PPTFileName

        Dim PPTPresentations As PowerPoint.Presentations = PPTApp.Presentations

        PPTPresentations.Open(PPTFilePath)


    End Sub
End Class