Zielgruppenorientierte Präsentation

[Peter Rasch]

Hallo Leute,

durch "Zielgruppenorientierter Präsentation" habe ich aus einem Pool
Folien-Sets zusammen gestellt.
Die würde ich jetzt doch gerne separat abspeichern, also nur die
Folienauswahl ,die durch eine "Zielgruppenpräsentation" zusammengefast
werden, in eine eigene Datei schieben.

((Ohne Copy and Paste .....))

Gibt´s da eine Möglichkeit?

DANKE und Gruß!
Peter

[Pia Bork]

Hallo Peter,

Peter Rasch wrote:
> durch "Zielgruppenorientierter Präsentation" habe ich aus einem Pool
> Folien-Sets zusammen gestellt.
> Die würde ich jetzt doch gerne separat abspeichern, also nur die
> Folienauswahl ,die durch eine "Zielgruppenpräsentation" zusammengefast
> werden, in eine eigene Datei schieben.

Da gab es mal einen Tipp im VBA-Magazin:

---------------Zitatanfang-----------------
Zielgruppenfolien extrahieren
...Sie, dass Sie vor Aufruf der nachfolgenden Prozedur in die
Bilschirmpräsentations-Ansicht wechseln müssen, da benannte Präsentationen
wohl nur dort existieren:

Private Sub Extract(strShowName)
Set prsThis = ActivePresentation
Set prsThat = Application.Presentations.Add
intNumberOfSlides = prsThis.Slides.Count
prsThis.SlideShowWindow.View. _
GotoNamedShow strShowName
While prsThis.SlideShowWindow.View.Slide _
.SlideNumber < intNumberOfSlides
prsThis.SlideShowWindow.View.Next
prsThis.SlideShowWindow.View.Slide.Copy
prsThat.Slides.Paste
Wend
prsThis.SlideShowWindow.View.Exit
End Sub

Den Komfort können Sie dadurch erhöhen, dass Sie den Parameter strShowName,
der den Namen der benannten (zielgruppenorientierten) Präsentation aufnimmt,
per Formular aus einer Liste abfragen lassen. Die Schaltfläche zur Anzeige
des Formulars legen Sie beispielsweise auf die Titelfolie.
----------------Zitatende----------------

--
Mit liebem Gruß
Pia Bork

MVP Powerpoint
www.ppt-faq.de