Thema Datum  Von Nutzer Rating
Antwort
Rot  mehrere PPT-Folien gleichzeitig kopieren
 11.07.2010 16:04:47 StefanFrank
NotSolved

Ansicht des Beitrags:
Von:
StefanFrank		 Datum:
11.07.2010 16:04:47		 Views:
1651		 Rating:
     
Antwort:
  Ja
Thema:
mehrere PPT-Folien gleichzeitig kopieren
Hej Leute,

folgende Aufgabenstellung:
es sollen mit einem excel-makro bestimmte folien aus einer ppt-Präsentation in eine andere Präsentation kopiert werden. welche folien aus der quelldatei kopiert werden sollen, soll aus dem excel-blatt ausgelesen werden. hier ist aber das problem. wenn ich die folien direkt im makro festlege (z.B. 2 und 3) dann funktioniert es. aber ich will wie gesagt, die zu kopierenden folien im excel-blatt festlegen.
Noch was: ich weiss, ich kann es mit einer schlafe hinkriegen, dass jede folie einzeln rüberkopiert wird. wenn es aber wie in meinem fall über 70 folien aus drei quellen sind, dann dauert es sehr lange, jede folie einzeln zu kopieren. da macht es mehr sinn z.b. die Folien 2-7 en bloc aus quelle1, folien 3-6 en bloc aus quelle2 u.s.w. zu kopieren.

Hier noch der Quellcode eines beispiels:

Sub FolienKopieren()
Dim PPT As Object
Dim ppQuelle As Object
Dim ppZiel As Object

quelle = "C:\Pfad\quelle.ppt"
ziel = "C:\Pfad\ziel.ppt"

Set PPT = CreateObject("PowerPoint.Application")

With PPT
.Visible = True
.WindowState = 1
.Activate
End With

Set ppQuelle = PPT.presentations.Open(quelle)
With PPT
.activepresentation.slides.Range(Array(2, 3)).Select
.ActiveWindow.Selection.Copy

Set ppZiel = PPT.presentations.Open(ziel)
.activepresentation.slides(1).Select
.ActiveWindow.View.Paste
End With

End Sub

Es geht also darum, dass in der Klammer von "Array()" variabel unterschiedliche Foliennummern stehen können, die in der excel-tabelle in einer zelle ausgelesen werden.

Hoffe jemand kann mir da helfen.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot  mehrere PPT-Folien gleichzeitig kopieren
 11.07.2010 16:04:47 StefanFrank
NotSolved