MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft PowerPoint
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.05.2015, 13:02   #1
erlandsen
Neuer Benutzer
Neuer Benutzer
Standard VBA - Slides kopieren mit Quellformattierung

Hallo zusammen,

ich stehe hier vor einem simplen Problem.
Ich muss hunderte Folien aus einer Powerpoint einzeln in eine andere Powerpoint Datei rüberkopieren.
Dies würde ich gerne per VBA bewerkstelligen.
Dabei sollte das ursprüngliche Quellformat (Formatierung) beibehalten werden.

Aktuell schaut mein Code so aus:

Code:

Sub saveEachSlide()
    Dim curPres As Presentation
    Set curPres = ActivePresentation
    Dim newPres As Presentation
    Set newPres = Presentations.Add
    Dim Counter As Integer
Counter = 1

For Counter = 1 To 200
curPres.Slides(Counter).Copy
newPres.Slides.Paste
newPres.SaveAs "C:\Users\DE-77514\Desktop\Test\test.pptx" & Counter
newPres.Close
Set newPres = Presentations.Add
Next Counter

End Sub
Mit dem Code kann ich die Folien extrahieren, aber ohne Quellformat.

Ich habe es mit PasteSpecial (aus Excel VBA) probiert, aber das funktioniert anscheinend nicht im VBA von Powerpoint, da er mir hier einen Fehler zurückwirft.

Könnt ihr mir da bitte weiterhelfen ?
erlandsen ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.07.2019, 09:49   #2
HilfeProblem
MOF User
MOF User
Standard

Hi erlandsen,

auch wenn dein Beitrag schon etwas her ist, würde mich interessieren, ob du eine Lösung für dein Problem gefunden hast?

Ich stehe aktuell vor derselben Problematik.

Gruß
Michael
HilfeProblem ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:51 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.