How can I separate each slides from one PPT file? [Solved]
DenizSea3
Posts Monday June 4, 2018Registration date
June 5, 2018
Last seen
-
Jun 4, 2018 at 12:45 PM - Latest reply: Ambucias52654
Posts Monday February 1, 2010Registration dateModeratorStatus
June 24, 2018
Last seen
- Jun 5, 2018 at 04:45 PM
I have a powerpoint file(Power point 2016) 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 ?
Thanks for answer. I run the VBA code. But the problem was, When it creates ppt files including one slide, it destroyed the design, layout according to the default slide features of powerpoint. I need exactly same slides. How can I solve that second problem then ?
Ambucias52654
Posts Monday February 1, 2010Registration dateModeratorStatus
June 24, 2018
Last seen
>
DenizSea3
Posts Monday June 4, 2018Registration date
June 5, 2018
Last seen -Jun 5, 2018 at 05:03 AM
Hello I found the answer and this is giving what I want to reach. For your informations.
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
Good luck