How Do I Pull Slides from Multiple Files

JohnWilson · #1 04-16-2015, 04:34 AM

1. Create a text file with Notepad

Each line should have the path to the required ppt in quotes then the first slide and last slide requires separated by commas

Like this (with more lines)

"C:\Users\John\Desktop\Pres 1.pptx",1,1
"C:\Users\John\Desktop\Pres 2.pptx",2,3
etc
Save on to Desktop
2. Add & run code

Open powerpoint with a single blank slide

ALT f11 to open the vb editor
INSERT >> Module

Paste in this code (changed to point at YOUR Desktop not mine!)

Code:

Sub PasteSlides()
Dim filenum As Integer
Dim strBuffer As String
Dim rayData() As String
filenum = FreeFile
Open Environ("USERPROFILE") & "\Desktop\data.txt" For Input As filenum
While Not EOF(filenum)
        Line Input #filenum, strBuffer
        rayData = Split(strBuffer, ",")
        With ActivePresentation.Slides
        .InsertFromFile rayData(0), .Count, CLng(rayData(1)), CLng(rayData(2))
        End With
        Wend
End Sub

Hit f5 to run the code

rain264 · #2 04-21-2015, 08:30 AM

Just wanted to say thanks! This works great and now takes about 3 seconds to build an entire file of 57 slides!

Is there a simple way to "keep source formatting" that can be added?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
sumproduct formula to pull info from multiple sheets	Berk21	Excel	7	01-15-2012 11:41 AM
Animation across multiple slides - please help	jpscience	PowerPoint	3	12-13-2011 11:32 AM
WYSIWYG exporting of slides to PNG files	Pantucci	PowerPoint	0	07-25-2011 07:47 AM
convert multiple csv files to multiple excel files	mit	Excel	1	06-14-2011 10:15 AM
macro to pull data from multiple files	psrs0810	Excel	2	10-25-2010 01:49 PM