ich bin mir nicht ganz sicher, ob das hier das richtige Forum ist, aber ich versuche es einfach mal:
Ich stehe vor der Herausforderung, aus einer Powerpoint Datei mit vielen Folien (Quelldatei) 3-4 Präsentationen zu erstellen(Zieldateien), welche nur bestimmte Folien aus der Quelldatei jeweils enthalten.
Problem 1: die Quelldatei verändert sich mit der Zeit, d.h. es verändern sich Folien und es können neue hinzukommen - und bei Bedarf müssen dann neue Zieldateien erstellt werden (mit den gleichen jeweiligen Folien wie am Anfang, ggf. aber auch mit Erweiterungen) --> Foliennummern als Referenz funktionieren also nicht
Problem 2: die Quelldatei liegt auf einem Sharepoint und die Zieldateien müssen auch dort erstellt werden, ggf. wird die Datei auch in andere Ordner verschoben, und mehrere Nutzer müssen damit arbeiten können --> absolute und lokale Pfade funktionieren nicht
Ich habe mir bisher aus verschiedenen Quellen etwas zusammengebastelt, was weder bzgl. Problem 1 noch Problem 2 zu Lösungen geführt hat:
Versuch des Erstellens einer kurzen Zieldatei (mit Foliennummern als Referenz):
Sub FolienKopieren_Short()
Dim ppZiel As Presentation
Dim varFilename As String
Dim Pfad As String
Pfad = Left(ActivePresentation.Path, 150)
varFilename = Pfad & "/SHORT.pptx"
Set ppZiel = Presentations.Open(Filename:= varFilename)
Presentations("Quelle.pptm").Slides.Range(Array(2, 4)).Copy
ppZiel.Slides.Paste 1
ppZiel.Save
'ppZiel.Close
Set ppZiel = Nothing
End Sub
Dann habe ich noch etwas gefunden, um jeder Folien einen Namen zu geben, was gut funktioniert, nur leider kann ich die Foliennamen nicht referenzieren, um diese in eine neue Zieldatei zu schreiben:
Sub ChangeSlideName()
Dim NewName As String
Dim ActiveSlide As Slide
Set ActiveSlide = ActiveWindow.View.Slide
NewName = InputBox("Enter new slide name for slide " & _
ActiveSlide.SlideIndex, "New Slide Name", ActiveSlide.Name)
If NewName = "" Then
Exit Sub
End If
ActiveSlide.Name = NewName
End Sub
Falls mir jemand zu Problem 1 und/oder 2 helfen kann, wäre ich dankbar!
:)
Viele Grüße,
-Gunnar-