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

gmooney

Board Regular
Joined
Oct 21, 2004
Messages
168
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.
 

Some videos you may like

Excel Facts

Can you sort left to right?
To sort left-to-right, use the Sort dialog box. Click Options. Choose "Sort left to right"

rlv01

Well-known Member
Joined
May 16, 2017
Messages
771
Maybe something like this

Code:
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
 

Watch MrExcel Video

Forum statistics

Threads
1,109,028
Messages
5,526,335
Members
409,696
Latest member
EERS

This Week's Hot Topics

Top