Header
Combine or join many PowerPoint Presentations!

INDEX

 

Jigsaws
Sounds
Video
Custom Shows
vba code
NaviSlides
Games for teachers
Bullets
Triggers
Security
Flash Cards
Multiple Instances
PowerPoint 2007
Mail Merge
Random events
Animation
Hyperlinks
Set spellcheck language


Home buttonTutorial buttonContact buttonProducts button


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 Sub

Run 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