#1
|
|||
|
|||
How can I separate each slides from one PPT file?
Hi Everyone. I have a powerpoint file which has 100 page(slides). What I want is to automatically separate each slide to create 100 seperate powerpoint files with keeping the existing masterslide features, design and layout. Is there any way to do that easily ?
Thank you very much in advance |
#2
|
|||
|
|||
For info this is crossposted on at least two other sites where there are answers
https://answers.microsoft.com/en-us/...c-c0a40721339f http://www.vbaexpress.com/forum/show...m-one-PPT-file |
#3
|
|||
|
|||
Quote:
Hello I found the answer. Following VBA code from John is giving me the right answer. For your information. Sub splitFiles() Dim tempR As Presentation Dim opres As Presentation Dim L As Long Dim oFolder As String 'requires v. 2010 or later On Error Resume Next Set opres = ActivePresentation Set tempR = Presentations.Add tempR.PageSetup.SlideSize = opres.PageSetup.SlideSize oFolder = Environ("USERPROFILE") & "\Desktop\Files\" MkDir oFolder For L = 1 To opres.Slides.Count opres.Slides(L).Copy tempR.Windows(1).Panes(1).Activate Call CommandBars.ExecuteMso("PasteSourceFormatting") Call tempR.SaveCopyAs(oFolder & "Slide" & CStr(L) & ".pptx", ppSaveAsOpenXMLPresentation) tempR.Slides(1).Delete Next L tempR.Saved = True tempR.Close End Sub |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Mail merge separate recipients same file | Cafeaulait | Outlook | 6 | 05-10-2018 08:00 PM |
Merge separate words files into one master file. | ronka1997 | Word | 3 | 08-09-2016 01:26 AM |
Auto Save Every Page(s) as a separate file, and name each new file automatically by the first line? | commissarmo | Word VBA | 3 | 03-14-2015 12:53 AM |
Copying a part of a docx file as a separate file | officeboy09 | Word | 6 | 09-26-2014 05:15 PM |
Creating separate file for each mail merge | doshshirl | Mail Merge | 3 | 02-15-2014 08:49 PM |