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.