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.