2 Präsentationen mit VBA schließen

[Enrico]

Hallo,

ich habe mehrere PowerPoint Präsentation die immer im Slideshow/Kiosk-Modus sind.
Das Umblättern funktioniert über eingefügte Buttons.
Über ein CommandButton kann man die Präsentation auch schließen.

Sub Ende()

ActivePresentation.Close

End Sub

Gibt es auch die Möglichkeit das ich durch Click auf diesen Button die aktive Präsentation + eine weitere bestimmte Präsentation schließen kann?

WICHTIG: PowerPoint im Ganzen muss geöffnet bleiben nur die ausgewählten Präsentationen dürfen geschlossen werden.

Ich hoffe mir kann jemand helfen.

[derHoepp]

Hi,

na klar geht das (ungetestet, da gerade kein pp zur Verfügung):

Code:

Application.Presentations("zweite.pptx").Close

Viele Grüße
derHöpp

[Enrico]

Manchmal kann es so einfach sein .... hatte ich schon fast so zu stehen aber anscheinend ein Denkfehler. 

Vielen Dank