' collect all files matching the file spec into vArray, an array of strings Sub EnumerateFiles(ByVal sDirectory As String, _ ' Change "*.PPT" to "*.PPTX" or whatever if necessary:ĮnumerateFiles ActivePresentation.Path & "C:\PathtoSlidesYouWanttoImport", "*.PPT", vArray ' INTO this one do not attempt to insert THIS file into itself, though. ' Insert all slides from all presentations in the same folder as this one In the new or existing PowerPoint file where you want to merge all the presentations, press ALT + F11Ĭlick in Insert > Module and paste the code inside that module. The code worked fine for me well, and I was able to merge 3 PowerPoint files worth 60 slides. It is straight forward and works better compared to the VBA code we used for Excel. Since there is no native method to merge numerous PowerPoint Presentations, we will have to use a VBA code, just like how we did to merge Excel files. Object Method is only useful if you want to pack multiple files into one. It wasn’t the case earlier, and one had to use the Object method, followed by multiple configurations to make it work. One of the best parts of importing using this method is that it will keep all animations or transitions. Any change you make in the merged document will not become available in the original file. The source file remains intact, and no changes will be made to it.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |