Ich habe ein Powerpoint Template (.potm) in dem ein Menü über Marko gestartet wird. Hier hat der Benutzer die Möglichkeit eine Auswahl zu treffen. Es werden dann verschiedene Folien, je nach dem was ausgewählt wurde, aus dem Folienmaster geladen. Das funktioniert auch alles super. Nun habe ich aber das Problem dass ich eine/mehrere Folien aus einem anderen Powerpoint zusätzlich mit einbinden muss. Ich kann diese Folien nicht in den Folienmaster ablegen, da diese Folien vordefiniert sind und dies im Folienmaster darzustellen, sehr aufwändig ist. Deshalb kopiere ich die Folie aus anderen Powerpoint templates (.pptx) und füge diese in die erstellte Powerpoint mit ein.
Dies mache ich so:
sFolder ist der zurückgegebene DateiPfad, welcher über eine Textbox eingelesen wird.
In der Slides.pptx liegen mehrere Slides die ich, je nach Auswahl, noch hinzufügen muss.
in dem Fall die Folie 4.
Presentations.Open FileName:=sFolder & "Slides.pptx", ReadOnly:=msoTrue
ActivePresentation.Slides.Range(Array(4, 4)).Copy
With Application.Presentations("Slides.pptx")
.Saved = True
.Close
End With
ActivePresentation.Slides.Paste 4
ActivePresentation.Slides(1).Select
Das in meinen Code eingefügt, funktioniert alles , außer das ich das Problem habe, dass in dem erstellten Powerpoint die Menüleiste nicht mehr reagiert. Ich kann die Folien auswählen etwas eintragen, aber sobald ich etwas in der Menüleiste auswählen möchte, geht dies nicht. Wenn ich den obereren Rand des Powerpoint mit der Maus schnappe und das Fenster klein wird und ich es danach wieder auf den gesamten Bildschirm vergrößere, kann ich wieder die Menüleiste bedienen. Für mich kommt es so vor als wäre meine erstellte Powerpoint, sobald ich das andere Powerpoint öffne nicht mehr die aktive PowerPoint Instanz (was aber komisch ist, mit ActivePresentation.Slides.Paste fügt er ja die Folie in das richtige Powerpoint ein...)
Wisst ihr warum die Menüleiste nicht mehr reagiert, bzw. wie ich dies wieder aktivieren kann? PowerPoint ist die Version von Office 2013