#Zielgruppenorientierte #Präsentation #exportieren – mit VBA


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.

Über katharinakanns

Microsoft Office Master Specialist mit viel Verständnis für IHR Geschäft - ich analysiere IHRE Situation, optimiere IHRE Prozesse, automatisiere IHRE Routineaufgaben, finde IHRE Lösung, unterrichte IHRE MitarbeiterInnen, mache Vorlagen mit IHRER CI, spare IHRE Zeit und IHR Geld. Ich freue mich darauf, SIE kennenlernen zu dürfen :-)
Dieser Beitrag wurde unter PowerPoint abgelegt und mit , , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Eine Antwort zu #Zielgruppenorientierte #Präsentation #exportieren – mit VBA

  1. Laura Reinheimer schreibt:

    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 mir

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s