PPT opening from excel VBA

[suresh ullanki]

Hi,

I am trying to open power point using excel vba with the following code. it is not working. Can you please help

Sub PPT_Open()
File_name = Application.GetOpenFilename("Microsoft PowerPoint-Files (*.pptx*), *.pptx*")
If File_name = "False" Then
MsgBox "Stopping because you did not select a file"
Exit Sub
Else
PowerPointApp.Presentations.Open = File_name
End I

 

[Norie]

Is PowerPointApp a reference to an instance of the PowerPoint application you've created/set somewhere else?

 

[suresh ullanki]

yes it has already created. but file name will be changed every time. and folder name will be changed as well. hence i want to make prompt to open file.

 

[Norie]

Try this.

PowerPointApp.Presentations.Open FileName:= File_name

 

[suresh ullanki]

Tried. it is throwing an error saying object required for this line

PowerPointApp.Presentations.Open FileName:= File_name

 

[par60056]

Where do you define "PowerPointApp"?

I wrote a routine to open powerpoint and convert Excel sheets to slides. Here is how I open the base file to add to it:

Dim ppApp As PowerPoint.Application
Dim ppPres As Presentation
Dim ppSlide As Slide
Dim ppContentSlide As Slide

Dim template As String

' Create instance of PowerPoint
Set ppApp = CreateObject("Powerpoint.Application")

' Open the template to create the new presentation
template = Workbooks(masterBook).Path & "\" & "Report_Template.pptx"
Set ppPres = ppApp.Presentations.Open(template, msoFalse)