Export zielgruppenorientierter Präsentationen (Powerpoint 2002)

03/06/2008 - 09:06 von the_pilot | Report spam
Hallo zusammen

ich möchte in einem Rutsch alle definierten "zielgruppenorientierten
Pràsentationen" in jeweils separate Dateien auszulagern um künftig nur noch
einen Master pflegen zu müssen.
Da keine Built-In Funktion existiert, bin ich hier
http://www.tech-archive.net/Archive.../0115.html auf ein VBA-Skript gestoßen:
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

Leider funktioniert es nicht wie gewünscht
Wenn ich dies 1:1 als VBA-Modul übernehme, erscheint das Makro Extract nicht
unter Makros ausführen (Alt+F8).
Dies gilt auch, wenn die Methode nicht als Private deklariert wird.
Wenn man die Inputvariable "strShowName" weglàsst und sie erst im Skript mit
"Dim strShowName As String" definiert, kann man das Makro aufrufen, erhàlt
man aber den Fehler:
"Laufzeitfehler'-2147188160(80048240)':

Presentation.SlideShowWindow: Invalid request. There is currently no slide
show view for this presentation."

Es öffnet sich immerhin schonmal ein neues Powerpointfile - allerdings ohne
Inhalt.
Weiterhin wurde empfohlen:
"Beachten Sie, dass Sie vor Aufruf der nachfolgenden Prozedur in die
Bilschirmpràsentations-Ansicht wechseln müssen, da benannte Pràsentationen
wohl nur dort existieren"
Hier stellt sich mir die Frage, wie ich denn ein VBA-Skript in der
Pràsentationssicht aufrufen kann. mit alt+F8 kommt man nicht weiter.

Die Autorin konnte mir adhoc auch nicht weiterhelfen und hat auf die NG
verwiesen.
Vielleicht kennt sich ja hier jemand damit im Detail aus.
Eine Beispieldatei habe ich auch, leider scheint im MS-Forum die
Standardfunktion "Anhang zu einem Posting hinzufügen" nicht vorhanden zu sein
:).

Viele Grüße

the_pilot
 

Lesen sie die antworten

#1 G.O.Tuhls
03/06/2008 - 12:48 | Warnen spam
the_pilot schrieb:

ich möchte in einem Rutsch alle definierten "zielgruppenorientierten
Pràsentationen" in jeweils separate Dateien auszulagern um künftig nur noch
einen Master pflegen zu müssen.



Hallo Pilot,
mal abgesehen von Deinem VBA-Problem, erscheint mir Dein Eingangssatz
recht widersprüchlich. Wenn Du mehrere Dateien aus einer erstellst,
musst Du doch künftig alle pflegen, oder hab ich das was
missverstanden?

Gruß
G.O.

Ähnliche fragen