Office: Powerpoint schließen "ppApp.Application.Quit" funzt nicht

Hallo,
am Ende meiner Prozedur soll einfach nur Powerpoint geschlossen werden.
Bei Excel funtioniert da "Application.Quit" bei Powerpoint aber nicht. Es kommt auch keine Fehlermeldung. Es wird der Befehl einfach übergangen und Powerpoint nicht geschlossen.

Wer kann mir da helfen? --> Die Prozedur ist unten aufgeführt......


Dim PowerPointDateiProjektkostenUebersicht As String
Dim ppApp As Powerpoint.Application
PowerPointDateiProjektkostenUebersicht = "c:\temp\Agenda.ppt"
'Powerpoint starten
''Set ppApp = CreateObject("Powerpoint.Application") 'Powerpoint öffnen
Set ppApp = New Powerpoint.Application
ppApp.Visible = True 'Powerpoint sichtbar machen
ppApp.Presentations.Open filename:=PowerPointDateiProjektkostenUebersicht, ReadOnly:=True
'Erste Seite drucken
With ppApp.ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.ClearAll
.Add Start:=1, End:=1
End With
.NumberOfCopies = 1

.ActivePrinter = "HP Business Inkjet 2600 PCL 5C"
End With
ppApp.ActivePresentation.PrintOut

'Powerpoint beenden !!!!!!!!!!!!!!!!!?????????
ppApp.ActivePresentation.Close
ppApp.Application.Quit 'und hier Funzt es NICHT !!!!!!!!!!!

End Sub

:)

 

Moin, tantelilly,

doppelt genäht hält besser - aber Du solltest unten nur ppApp.Quit nutzen - so klappt es jedenfalls bei mir zwischen PP2K und A2K.

 

Thanx, aber auch das geht nicht.... es kommt zwar auch keine Fehlermeldung ... aber es tut sich auch nix :-(

An so etwas hatte ich auch schon gedacht, daher habe ich die 2 Versionen mal getestet (siehe unten) ... aber da tut sich einfach nix. Warum auch immer.
Ich arbeite mit Acces 97 und PP97

''Set ppApp = CreateObject("Powerpoint.Application")
Set ppApp = New Powerpoint.Application

 

Moin, tantelilly,

da ich hier keine Möglichkeit habe, auf die 97er Versionen zuzugreifen - bitte in Zukunft die verwendeten Versionen angeben. BTW: Bei mir funktionieren beide Vorgehensweisen, aber das wird Dir nicht so viel nutzen...

 

Tja ... Dachte das das evtl. unabhängig von der Version ist.
Gibbet denn keinen anderen Ausweg außer "Quit" ? Kann man evtl. direkt einen Prozeß (Taskmanager: powerpnt.exe) beenden?

 

Hallo,

probier's mal damit:

Code:

 

So einfach kann die Lösung sein.

THANX !!!!!!!!!!!!!!!!!!!

Tja .... da kann Mann suchen wie verrückt und .... die Lösung ist sooooooo einfach :-)