Seite 1 von 1

VBA: aus gestarteter Päsentation Präsentation starten

BeitragVerfasst: 18. Apr 2021, 18:09
von thomas90
Hallo zusammen,
ich habe einen Commandbutton in meiner Präsi mit dem ich eine andere Präsi starten möchte.
Hier mal der Code des Commandbuttons:
Code: Alles auswählen
Private Sub CommandButton1_Click()
    Presentations.Open FileName:="C:\Desktop\Präsentation.pptm", ReadOnly:=msoTrue
    ActivePresentation.SlideShowSettings.Run
End Sub


Allerdings wird Präsentation.pptm nur im Folienmodus geöffnet (obwohl es ja schon eine .pptm Datei ist).
Normalerweise aktiviere ich ja eine Präsentation mit dem .run-Befehl, aber vielleicht kommt Powerpoint durcheinander weil ja schon eine andere Präsentation aktiv ist.

Kann mir jemand helfen?

Danke und Gruß
Thomas

Re: VBA: aus gestarteter Päsentation Präsentation starten

BeitragVerfasst: 18. Apr 2021, 20:00
von G.O.Tuhls
Warum .pptm? Selbststartend ist .ppsx.

Gruß
G. O.

Re: VBA: aus gestarteter Päsentation Präsentation starten

BeitragVerfasst: 19. Apr 2021, 20:11
von thomas90
Dank G.O. für deine Antwort.

.pptm habe ich genommen, weil die geöffnete Präsi auch ein Makro enthält das ausgeführt werden soll, wenn man auf ein Shape in der Präsi klickt. Dafür muss ich die Datei ja mit Makros speichern. Aber auch egal: weder als .pptx noch als .pptm wird die Präsi gestartet.

Sehr seltsam...

VG Thomas

Re: VBA: aus gestarteter Päsentation Präsentation starten

BeitragVerfasst: 19. Apr 2021, 20:41
von thomas90
Ich könnte die Präsi, die geöffnet werden soll, mit einem Objektzeiger versehen:
Code: Alles auswählen
Dim myppt As Presentation
Set myppt = Presentations.Open(FileName:=FileName:="C:\Desktop\Präsentation.pptm")


Wie ist denn der Befehl, um den Objektzeiger zu aktivieren?

VG Thomas

Re: VBA: aus gestarteter Päsentation Präsentation starten

BeitragVerfasst: 19. Apr 2021, 21:01
von G.O.Tuhls
Es gibt auch .ppsm für Selbststarter mit Makros.

Gruß
G. O.

Re: VBA: aus gestarteter Päsentation Präsentation starten

BeitragVerfasst: 19. Apr 2021, 21:35
von thomas90
Ja, aber wie gesagt. Beide Dateien starten mit dem obigen Code im Folienmodus.
Ich denke, dass man die geöffnete Präsi erst als aktiv markieren muss, bevor ich den .run-Befehl ausführe, daher meine Idee mit dem Objektzeiger.

Allerdings weiß ich nicht, wie der Befehl ist, um den Objektzeiger anzusprechen bzw. ihn zu aktivieren.

Viele Grüße
Thomas

Re: VBA: aus gestarteter Päsentation Präsentation starten

BeitragVerfasst: 04. Mai 2021, 14:42
von thomas90
Um das Thema abzuschließen:
Es hat nun mit dem nachfolgenden Code funktioniert.
Code: Alles auswählen
Private Sub CommandButton1_Click()

Dim myppt As Presentation

Set myppt = Presentations.Open(FileName:="C:\Desktop\Präsentation.pptm")
myppt.SlideShowSettings.Run
ActivePresentation.SlideShowSettings.Run

End Sub