VBA Code that opens a PPT file...now need PPT code to return back to the opened Excel file.

[gmooney]

I have the following code in Excel:

Private Sub MonthlyToplinePPT()
' Opens Presentation.pptx


Dim PPT As Object
Set PPT = CreateObject("PowerPoint.Application")
PPT.Visible = True
PPT.Presentations.Open Filename:="C:\Topline\Topline Writeup.pptx"
With PPT.ActivePresentation.SlideShowSettings
.ShowType = ppShowSpeaker
.Run.View.AcceleratorsEnabled = False
End With
Set PPT = Nothing


Now I would like to know what code I need to click a macro button in PPT that will shut down the PPT and return me to above mentioned Excel file.

Assume the Excel file is called Topline.xlsx and it resides in the C:\Topline\ folder.

Any help? I know this is more for a PPT forum but can't really find any one that I thought could help.

 

[rlv01]

Maybe something like this

Private Sub ClosePPT()
    Dim PPT As Object, PP As Object

    Set PPT = CreateObject("PowerPoint.Application")
    For Each PP In PPT.presentations
        Select Case PP.Name
            Case "C:\Topline\Topline Writeup.pptx"
            'PP.Save                                   'optional
            PP.Close
        End Select
    Next PP
    PPT.Quit                                           'optional
    Set PPT = Nothing
End Sub