How to quit from Powerpoint launched trought VBA codes in Excel

[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!

 

[Guest]

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

 

[Guest]

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!

 

[Guest]

You want to close excel.

Application.Quit

 

[Guest]

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.

 

[Guest]

Did you try running the code provided?

 

[Guest]

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