VBA: aus gestarteter Päsentation Präsentation starten

Moderator: ModerationP

VBA: aus gestarteter Päsentation Präsentation starten

Beitragvon thomas90 » 18. Apr 2021, 18:09

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
thomas90
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 434
Registriert: 05. Aug 2015, 17:24

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

Beitragvon G.O.Tuhls » 18. Apr 2021, 20:00

Warum .pptm? Selbststartend ist .ppsx.

Gruß
G. O.
Press any thumb to continue. :D
Benutzeravatar
G.O.Tuhls
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8244
Registriert: 26. Mär 2010, 14:19
Wohnort: Berlin

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

Beitragvon thomas90 » 19. Apr 2021, 20:11

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
thomas90
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 434
Registriert: 05. Aug 2015, 17:24

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

Beitragvon thomas90 » 19. Apr 2021, 20:41

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
thomas90
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 434
Registriert: 05. Aug 2015, 17:24

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

Beitragvon G.O.Tuhls » 19. Apr 2021, 21:01

Es gibt auch .ppsm für Selbststarter mit Makros.

Gruß
G. O.
Press any thumb to continue. :D
Benutzeravatar
G.O.Tuhls
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8244
Registriert: 26. Mär 2010, 14:19
Wohnort: Berlin

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

Beitragvon thomas90 » 19. Apr 2021, 21:35

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
thomas90
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 434
Registriert: 05. Aug 2015, 17:24

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

Beitragvon thomas90 » 04. Mai 2021, 14:42

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
thomas90
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 434
Registriert: 05. Aug 2015, 17:24


Zurück zu PowerPoint Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 13 Gäste