Welcome Format of Community Forum Issues of Consolidation Business Perspective Historical Development of Local School Board Consolidation Questions from the Audience Closing Remarks Mr.
You have a set of presentations you want to combine into a single PPT file.
Check the Keep source formatting box if you want keep the theme and text formatting of the external presentation.
If you uncheck that box, then when you go to insert the slides into the main presentation, the original formatting will not be kept.
As a member, you'll also get unlimited access to over 55,000 lessons in math, English, science, history, and more.
Plus, get practice tests, quizzes, and personalized coaching to help you succeed.
Microsoft Power Point allows you to combine two or more presentations with different theme templates.
Power Point includes a Keep Source Formatting option that retains the template format for each slide.
The inserted slides will simply take the slides exactly as they are in the external presentation and add them to the main presentation.
However, there is one big caveat: none of the animations or transitions will be carried over.
The first method uses the Reuse Slides option in Power Point and the second method uses the Insert Object option.
If you want the inserted slides to match the theme of your main presentation, then you have to use the Reuse Slides option.
TXT must be properly formatted, one full path name per line On Error Go To Error Handler Dim s List File Name As String Dim s List File Path As String Dim i List File Num As Integer Dim s Buf As String ' EDIT THESE AS NEEDED ' name of file containing files to be inserted s List File Name = "LIST. TXT file doesn't exist, create it If Len(Dir$(s List File Path & s List File Name)) = 0 Then i List File Num = Free File() Open s List File Path & s List File Name For Output As i List File Num ' get file names s Buf = Dir$(s List File Path & "*. " Normal Exit: Exit Sub Error Handler: Call Msg Box("Error:" & vb Cr Lf & Err. Description, _ vb OKOnly, "Error inserting files") Resume Normal Exit End Sub Sub Insert All Slides() ' Insert all slides from all presentations in the same folder as this one ' INTO this one; do not attempt to insert THIS file into itself, though.