merge up individual ppts into one

G

Guest

Hi can any one please help me out in merging up the presentations and to form
one presentation
thanks in advance
 
G

Guest

For me, I open up a target master presentation, so to speak, which I want to
add content slides to. Then I open up the smaller presentations, one at a
time, which I am assembling content from. I then use the copy and paste
technique. Even the rehearsed timings, if you have any, seem to transfer in
tact.
 
G

Guest

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top