Sie haben eine große, GROßE Präsentation, und damit Sie nicht jedem alles zeigen, haben Sie zielgruppenorientierte Präsentationen definiert.
Die wollen Sie zur besseren Verteilung nun doch separat speichern – und zwar am besten als Export aus der Originalpräsentation heraus. PowerPoint bietet dafür keine Funktion an – aber ich biete Ihnen einen VBA-Schnipsel an, der das für Sie erledigt:
Sub Export_NamedSlideShows() Dim orig_Pres As Presentation Dim goal_Pres As Presentation Dim orig_Slide As Slide Dim goal_Slide As SlideRange Dim n_SlideShow As NamedSlideShow Dim strName As String Dim I As Integer Set orig_Pres = ActivePresentation For Each n_SlideShow In orig_Pres.SlideShowSettings.NamedSlideShows Set goal_Pres = Application.Presentations.Add goal_Pres.ApplyTemplate orig_Pres.FullName For I = 1 To n_SlideShow.Count Set orig_Slide = orig_Pres.Slides.FindBySlideID(n_SlideShow.SlideIDs(I)) orig_Slide.Copy Set goal_Slide = goal_Pres.Slides.Paste goal_Slide.Design = orig_Pres.Designs(orig_Slide.Design.Index) Next strName = orig_Pres.FullName goal_Pres.SaveAs Left(strName, Len(strName) - 4) & "-" & n_SlideShow.Name Next Set n_SlideShow = Nothing Set orig_Slide = Nothing Set goal_Slide = Nothing Set orig_Pres = Nothing Set goal_Pres = Nothing End Sub
Ich hoffe, Ihnen gefällt das und Sie können’s gut brauchen.
Hallo,
dieser „Schnipsel“ hat mir sehr weitergeholfen für meine Präsentationen. 🙂
Allerdings ist mir aufgefallen, dass die Schriftgröße nicht aus dem Original bei manchen Folien übernommen wird. Gibt es dazu auch eine Lösung? Das wäre super.
Vielen Dank und liebe Grüße,
Laura
Gefällt mirGefällt 1 Person