HOW TO SPLIT UP SLIDES IN A PPT TO FORM A PPT FOR EACH SLIDE

[kashif]

Hi , i want to split up ppt into its slides and this slide should now behave
as a individual ppt,...... please help

thanks in advance

 

[John Wilson]

You could of course open and delete all but one slide save as etc OR use
insert slides from files to make one slide presentations - both would be
pretty laborious.

OR you could use vba to do it. Try this (ON ACOPY) see if it does it for you
If you have 2007 change all the .ppt to .pptx:

Sub singles()
Dim i As Integer
Dim osource As Presentation
Dim otarget As Presentation
'make a temp copy
ActivePresentation.SaveCopyAs (Environ("TEMP") _
& "\tempfile.ppt")
Set osource = Presentations.Open(Environ("TEMP") _
& "\tempfile.ppt")
For i = osource.Slides.Count To 1 Step -1
osource.Slides(i).Cut
Set otarget = Presentations.Add(msoTrue)
otarget.Slides.Paste
otarget.SaveAs (Environ("USERPROFILE") & _
"\Desktop\Slide " & CStr(i)) & ".ppt"
otarget.Close
Set otarget = Nothing
Next
osource.Close
'remove temp copy
Kill (Environ("TEMP") & "\tempfile.ppt")
Set osource = Nothing
End Sub

 

[John Wilson]

Modified to follow master template!

Sub singles()
Dim i As Integer
Dim osource As Presentation
Dim otarget As Presentation
ActivePresentation.SaveCopyAs (Environ("TEMP") & "\tempfile.ppt")
Set osource = Presentations.Open(Environ("TEMP") & "\tempfile.ppt")
For i = osource.Slides.Count To 1 Step -1
osource.Slides(i).Copy
Set otarget = Presentations.Add(msoTrue)
otarget.Slides.Paste
otarget.Slides(1).Design = osource.Slides(i).Design
otarget.Slides(1).ColorScheme = osource.Slides(i).ColorScheme
osource.Slides(i).Delete
otarget.SaveAs (Environ("USERPROFILE") & "\Desktop\Slide " & CStr(i)) & ".ppt"
otarget.Close
Set otarget = Nothing
Next
osource.Close
Set osource = Nothing
End Sub

 

[Shyam Pillai]

Here is an alternative approach to the same. This approach will retain the
source formatting.

Export Slides within a Presentation as files
http://skp.mvps.org/ppt00036.htm#2

If you want an app which does this in-built, you can try the free trial
version of Batch Exporter
http://skp.mvps.org/products/xport/index.html

--
Regards,
Shyam Pillai

Animation Carbon: Copy/Paste/Share animation libraries.
www.animationcarbon.com

 

[Michael]

Is there a way to save the resulting file as the title of the slide?? I tried with

otarget.SaveAs (Environ("USERPROFILE") & "\Desktop\" & ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange.Text)

but didn't seem to work..

 

[Steve Rindsberg]

Is there a way to save the resulting file as the title of the slide?? I tried with

otarget.SaveAs (Environ("USERPROFILE") & "\Desktop\" & ActivePresentation.Slides (1).Shapes.Title.TextFrame.TextRange.Text)

but didn't seem to work..

What title are you after? The title of the original presentation?

The title text on the current slide? If so

otarget.SaveAs (Environ("USERPROFILE") & "\Desktop\" & otarget.Slides
(1).Shapes.Title.TextFrame.TextRange.Text)


image-control-with-builtin-resizing-of-posted-file.aspx

 

[Michael]

I got it working thanks..

Sub singles()
Dim i As Integer
Dim osource As Presentation
Dim otarget As Presentation
'make a temp copy
ActivePresentation.SaveCopyAs (Environ("TEMP") _
& "\tempfile.ppt")
Set osource = Presentations.Open(Environ("TEMP") _
& "\tempfile.ppt")
For i = osource.Slides.Count To 1 Step -1
osource.Slides(i).Cut
Set otarget = Presentations.Add(msoTrue)
otarget.Slides.Paste
otarget.SaveAs (Environ("USERPROFILE") & "\Desktop\test\" & ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange.Text)
otarget.Close
Set otarget = Nothing
Next
osource.Close
'remove temp copy
Kill (Environ("TEMP") & "\tempfile.ppt")
Set osource = Nothing
End Sub



Submitted via EggHeadCafe
Stock Quotes via jQuery-enabled WCF Service, JSON, and jQuery Templates
http://www.eggheadcafe.com/tutorial...ed-wcf-service-json-and-jquery-templates.aspx