Hallo zusammen,
leider liegen meine VBA-Zeiten schon eine Weile zurück und sind stark eingerostet.
Nun habe ich einen Anwendungsfall und könnte etwas Starthilfe brauchen.
Wäre super, wenn mir jemand weiterhelfen könnte :-)
Ich möchte in einer PowerPoint diverse zielgruppenorientierte Präsentationen anlegen.
Über eine Übersichtsseite sollen die einzelnen Präsentationen dann ausgewählt und als PDF exportiert werden können.
Bisher habe ich nur diesen Code gefunden, der alle angelegten zielgruppenorientierten Präsentationen separat öffnet.
Eine gezielte Auswahl über Schaltflächen, um nur die gewünschte Präsentation zu exportieren wäre super.
Hat da jemand eine Idee?
Tausend Dank!
Sub Extract()
Dim prsThis As Presentation
Dim prsThat As Presentation
Dim sldThis As Slide
Dim sldThat As SlideRange
Dim nss As NamedSlideShow
Dim strName As String
Dim i As Integer
Set prsThis = ActivePresentation
For Each nss In prsThis.SlideShowSettings.NamedSlideShows
Set prsThat = Application.Presentations.Add
prsThat.ApplyTemplate prsThis.FullName
For i = 1 To nss.Count
Set sldThis = prsThis.Slides.FindBySlideID(nss.SlideIDs(i))
sldThis.Copy
Set sldThat = prsThat.Slides.Paste
sldThat.Design = prsThis.Designs(sldThis.Design.Index)
Next
strName = prsThis.FullName
prsThat.SaveAs Left(strName, Len(strName) - 4) & "-" & nss.Name
Next
End Sub
|