Joiner

This is a vba routine that will quickly combine several presentations into one larger presentation. If you are not familiar with vba and macro security you should first read PowerPoint vba for beginners

To use copy all of the presentations EXCEPT the first in a folder on your desktop called "joiner" (no quotes)

Open the first presentation (Make sure you use a COPY) and press Alt f11 to open the vbe editor. INSERT > Module and paste in this code

Sub joiner()
Dim sFileTyp As String
Dim sFileName As String
Dim otarget As Presentation
Dim i As Integer
On Error GoTo errhandler
sFileTyp = "*.PPT*"
sFileName = Dir$(Environ("USERPROFILE") & "\Desktop\joiner\" & sFileTyp)
Set otarget = ActivePresentation
Do While sFileName <> ""
Call otarget.Slides.InsertFromFile(Environ("USERPROFILE") & "\Desktop\joiner\" & _
sFileName, otarget.Slides.Count)
sFileName = Dir()
Loop
Exit Sub
errhandler:
MsgBox "Sorry, there was an error"
End SubRun the code to combine the presentations

The presentations will usually be added in alphabetic name order so you might want to edit these.

Back to the Index Page

POWERPOINT BLOG

Articles on your favourite sport

Free Microsoft PowerPoint Advice, help and tutorials, Template Links
This website is sponsored by Technology Trish Ltd
© Technology Trish 2007
Registered in England and Wales No.5780175
PowerPoint® is a registered trademark of the Microsoft Corporation