Closing a Ppt presentation that I opened

[christophercbrewster via OfficeKB.com]

I have a routine that gets information from a Powerpoint file. To use Ppt, it
has this at the beginning:

Set ppt = GetObject(, "Powerpoint.Application")
ppt.Visible = True
ppt.presentations.Open "mypresentation.ppt"

But I can't find a way to close it. The obvious one doesn't work: using the
same statement as the last one above, but changing Open to Close. (I also
tried it with the filename deleted.) Any suggestions?

--
Christopher Brewster
Lockheed Martin, Eagan MN

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/word-programming/200810/1

 

[Helmut Weber]

Hi Christopher,

perhaps like that:

Sub Testxxx()
Dim ppt As Object
Set ppt = GetObject(, "Powerpoint.Application")
ppt.Visible = True
ppt.presentations.Open "c:\test\Presentation1.ppt"
ppt.presentations(1).Close
End Sub

or

Sub Testxxx4()
Dim ppt As Object
Set ppt = GetObject(, "Powerpoint.Application")
ppt.Visible = True
ppt.presentations.Open "c:\test\Presentation1.ppt"
ppt.presentations("Presentation1.ppt").Close
End Sub
--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

 

[christophercbrewster via OfficeKB.com]

Thanks-- it works and makes sense.

Hi Christopher,

perhaps like that:

Sub Testxxx()
Dim ppt As Object
Set ppt = GetObject(, "Powerpoint.Application")
ppt.Visible = True
ppt.presentations.Open "c:\test\Presentation1.ppt"
ppt.presentations(1).Close
End Sub

or

Sub Testxxx4()
Dim ppt As Object
Set ppt = GetObject(, "Powerpoint.Application")
ppt.Visible = True
ppt.presentations.Open "c:\test\Presentation1.ppt"
ppt.presentations("Presentation1.ppt").Close
End Sub
--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

 

[christophercbrewster via OfficeKB.com]

If I could ask a related question...

Being able to close the presentation (thanks!) makes me realize that my macro
is unable to open the presentation unless Powerpoint is already open. (I
didn't realize this with my preliminary version.) I'd like to say "If
Powerpoint isn't open, open it", and at the end "If Powerpoint needed to be
opened, close it now". Is there a way to do this?

 

[Doug Robbins - Word MVP]

Use code similar to that in the article "Control Excel from Word" at:

http://www.word.mvps.org/FAQs/InterDev/ControlXLFromWord.htm

or use the CreateObject function as in the second method in the article "How
to send an email from Word using VBA" at:

http://www.word.mvps.org/FAQs/InterDev/SendMail.htm


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP