Combine multiple presentations

excelledsoftware · #1 10-25-2014, 11:25 PM

It sounds like you need a VBA script that will go through each slide and on each slide go through each shape. Then go through and format the text for each of those shapes.

How does that sound?

If that sounds like a way you want to go I have included some code to get you started.

Code:

Sub FormatAll()
  'Code that looks through each shape and then formats the text to
  'a specific type of font.
  
  Dim pst As Presentation, CheckSlide As Slide, CheckShape As Shape
  
  Set pst = ActivePresentation
  
    On Error Resume Next 'Skip over no text shapes and wordart.
    For Each CheckSlide In pst.Slides
      For Each CheckShape In CheckSlide.Shapes
        'Times New Roman, 60pt, Bold, font color, Sentence case, no shadow, etc
        With CheckShape.TextFrame.TextRange.Font
          .Name = "Times New Roman"
          .Size = 60
          .Bold = msoTrue
          .Color = vbBlack
          'Add other attributes as needed.
        End With
      Next CheckShape
    Next CheckSlide
    On Error GoTo 0
End Sub

As with all code, be sure to save and backup your presentation before running.

Let me know what else you need.

Thanks

stevevrabel · #2 10-26-2014, 10:29 AM

Well this should be fun.....I have never used VBA script so it will be a great learning experience. Thanks for this help. I'll let you know how it turns out.....may take me about 3 years to figure it out

Steve

excelledsoftware · #3 10-26-2014, 12:19 PM

Quote:

Originally Posted by stevevrabel

Well this should be fun.....I have never used VBA script so it will be a great learning experience. Thanks for this help. I'll let you know how it turns out.....may take me about 3 years to figure it out

Steve

lol You should give yourself more credit. Afterall you are going through and merging multiple presentations together that takes some skill. ( by the way we can alter the code to do that for you as well. Just a thought)

Since you have not done VBA before I will give you a quick how to.

Close all other presentations besides the one that you want to process
On your presentation with the all of the slides press ALT + F11
Go to INSERT > MODULE
paste the entire code from Sub to End Sub.
SAVE the presentation under a different name before running so you can go back if needed. VBA code does not have an undo command.
Place the cursor anywhere in the code and press the play button.
It will look like nothing happened because it will run very fast but go to your presentation and see the results.

From here you will come back to the forum and let us know if it did exactly what you wanted or if it needs to be "tweaked"

and again if we want to get the code to put all those slides together for you. Get comfortable running this one and then we can do just that.

Thanks

stevevrabel · #4 10-27-2014, 05:55 AM

Well, I had to do a little reading to try to understand some of the commands you put into the code and I was able to add and play with some different commands. I think this is going to be a tremendous help. Thank you again.

The only one I could not seem to figure out was the changing of everything from ALL CAPS to Sentence case. I found an Excel example but that was to change only what is in a cell and I could not figure out how to create a command that would do this in PowerPoint slides. Any idea how to do this?

Thanks

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Combine or merge multiple worksheets into one worksheet	timomaha	Excel	1	07-21-2014 01:02 PM
Multiple Powerpoint Presentations Hyperlinked Audio Problem.	donoskaro	PowerPoint	0	03-24-2014 01:07 PM
Excel -> PowerPoint multiple presentations - process automation	wstach	Excel Programming	2	03-18-2014 06:20 AM
combine multiple documents word starter 2010	bribelge	Word	3	12-19-2012 09:25 AM
link common slides in multiple presentations	robtho	PowerPoint	1	06-24-2011 12:55 AM