Powerpoint Makro Folien kopieren

[Soma-web]

Hallo liebe CB User,

ich habe ein leidiges Problem dabei Powerpoint mit Makros zu automatisieren.
Und zwar möchte ich Monatlich in eine Powerpoint Präs. Folien hinzufügen, doch leider klappt das nicht so ganz wie ich mir das Vorstelle.

Presentations.Open FileName:="https://XXX/*.ppt", ReadOnly:=msoTrue
    ActiveWindow.Selection.Copy
    ActiveWindow.View.Paste

Hier bekomme ich leider immer die Fehlermeldung, dass ich nichts Selected hätte, was ich mir auch gut Vorstellen kann, da ja wirklich nichts Selected wurde.
eigtl. müsste es doch wie in Excel auch (Select.Range) einen Befehl geben, der sagt, dass ich in dem aktiven Fenster die Slide 12 selecte und sie dann erst kopiere?
Oder stell ich mir das im Moment noch zu einfach vor?
Außerdem müsste ich vor dem Einfügen auch noch das active.Window zu der Zieldatei ändern oder?
Ich sag euch eines mit dem Makro Recorder werde ich unter Powerpoint echt nihct schlau.

Danke schonmal für eure Hilfe.
gruß Soma

 

[schmidmi]

Du musst vorher etwas aktivieren bzw. selektieren um es zu kopieren.

 

[Soma-web]

Sehr gut und wie lauten die Befehle um Power1.ppt zu aktivieren und aus dieser dann die Foliennummer 23 zu kopiern und anschließend die Zieldatei.ppt zu aktivieren um dort die kopierte Folie als NUmmmer 13 einzufügen?

Danke

 

[Soma-web]

So hallo ich noch einmal.
Anscheinend habe ich die Frage Falsch formoliert.
Ich benötige die Makro Befehle um Eine Power Point Folie aus einer Präsentaion in eine Andere Präsentation zu kopieren.
Ich verwende PowerPoint 2003
Bsp:
Quelle.ppt, Folie 3 Soll in Ziel.ppt als Folie 13 eingefügt werden.
Ich wäre euch wirklich dankbar, wenn ihr mir hierbei helfen könnt.

Danke

Gruß Soma

 

[schmidmi]

Wirklich gut erklärt ist es hier.
Einfacher wird es hier beschrieben.

Im Prinzip musst du nur beider Präsentationen öffnen. Dann setzt du den Fokus auf die Präsentation aus der du kopieren willst und kopierst deine Folie mit ActivePresentation.Slides(Nummer).Select und ActiveWindow.Selection.Copy.
Dann wechselst du auf die andere Präsentation und fügst den Inhalt wieder ein.
ActivePresentation.Slides(ActivePresentation.Slides.Count + 1).Select
ActiveWindow.View.Paste

 

[Soma-web]

Schmidmi, danke dir. Ich werds morgen mal ausprobieren.
THX
Bei Rückfragen kann ich mich doch hoffentlich an dich wenden?

DANKE!!!!