How to quit from Powerpoint launched trought VBA codes in Excel

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello,

Is there any possibility to quit from application PowerPoint launched
through VBA codes in Excel?

I have the following code in Excel:

Sub LaunchPPT()
Dim PPSlide As Object
Set PPSlide = CreateObject("PowerPoint.application")
With PPSlide
.Visible = True
.presentations.Open filename:="C:\InfoData\Programas\InfoGraph.pps"
.Run "InfoGraph.pps!UpdateAllLinks"
.presentations("InfoGraph.pps").Saved = True
End With

Help me, please!
 
untested, but try

Sub LaunchPPT()
Dim PPSlide As Object
Set PPSlide = CreateObject("PowerPoint.application")
With PPSlide
.Visible = True
.presentations.Open filename:="C:\InfoData\Programas\InfoGraph.pps"
.Run "InfoGraph.pps!UpdateAllLinks"
.presentations("InfoGraph.pps").Saved = True
.Presentations("InfoGraph.pps").close
End With
ppslide.quit
set ppslide = nothing
End sub
 
Thanks Tom, but I didn't explain the following:

I want to close the application after that has been shown in PowerPoint.

I'm sorry!
 
No, I want to close PowerPoint, when the "Presentation View" mode has
terminated. Or, when the users do click on "End Presentation".

Is there event in VBA for PowerPoint?

Regards!
Dennis.
 
Yes, but it's close and quit automatically with ".close" and ".quit" commands.

I want that it's close the presentation (*.pps) and close the application
(PowerPoint) when the user wishes him.

In "InfoGraph.pps" presentations I have a code VBA for PowerPoint (..as
macro), it's assinged to "Shape" object, and it works perfectly in "show"
mode. The trouble is when the user pressed the key [ESC] and "show" mode is
finished.

Sub CloseAndQuit()
With Application
For Each w In .Presentations
w.Save
Next w
.Quit
End With
End Sub

Could I assign the previous macro when does any event happen? If there is
possibility show me, please!

Regards!
Dennis
 
Back
Top