Combine multiple presentations

stevevrabel · #1 10-23-2014, 05:58 PM

I do the screen projections for our church. Our worship leader sends me his songs and it is combination of various presentations from days past. He may send me 5 different presentations that have different size fonts, all caps, different fonts, some with shadows, different line spacing, not centered, etc.

I try to combine these into a single presentation and based on our room I have determined a certain size works best and I have found it is easier to read if we use the same font and in sentence case and one background, etc.

I sometimes spend a couple of hours doing nothing but highlighting the text in each slide and changing the various parameters. i have to think there is an easier way and i am just not seeing it.

Master slide works great when you are doing a presentation from scratch but i have not figured out how I can import multiple slides from other presentations and have it automatically be in Times New Roman, 60pt, Bold, font color, Sentence case, no shadow, etc. I am trying to figure out if there is a way to "automate" this to where I can change all the slides to look the same and have the same characteristics without doing it a slide at a time.

Anyone figure this out???

Thanks in advance for any help you can provide.

excelledsoftware · #2 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 · #3 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 · #4 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 · #5 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

excelledsoftware · #6 10-27-2014, 06:45 AM

Hi Steve. This is definitely possible but it will require a function within the code since I dont think that you can apply the "proper" title case formula in PPT. I will look into tonight and get it all figured out.

Thanks for your patience.

excelledsoftware · #7 10-27-2014, 09:08 PM

One thing I love about the forum is when I learn about something new. This is one of those times.

Apparently changing text to title case is very very easy. I have pasted the modified code below.

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
        CheckShape.TextFrame.TextRange.ChangeCase ppCaseTitle
        '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

Let me know if you have any questions.

Thanks

stevevrabel · #8 10-30-2014, 02:55 PM

Sorry, I have been traveling. This is great. Thank you very much

stevevrabel · #9 10-30-2014, 04:00 PM

Okay, Everything works like a champ......except no shadow. I put in a command like this

.Shadow = None

That did not work. I promise this is it..... :-)

excelledsoftware · #10 10-30-2014, 05:19 PM

No problem Steve you can ask whatever you want. You were close on the Shadow. A good way is to use the Macro recorder to see how Powerpoint interprets certain commands.

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
        CheckShape.TextFrame.TextRange.ChangeCase ppCaseTitle
        '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
          .Shadow = msoFalse
          'Add other attributes as needed.
        End With
      Next CheckShape
    Next CheckSlide
    On Error GoTo 0
End Sub

Let me know how it works out.

Thanks

stevevrabel · #11 10-30-2014, 05:34 PM

I tried the .Shadow = msoFalse and I thought I reviewed the slides and they still had the shadow effect on them....that is when I started working with other commands and could not figure it out.

Also, I do not think think the Mac version has the recorder option available.

thanks again....I will try this solution

stevevrabel · #12 10-30-2014, 05:40 PM

I tried this and unless I have something entered wrong, it did not work....the shadow is still there

excelledsoftware · #13 10-31-2014, 12:09 AM

Quote:

Originally Posted by stevevrabel

I tried this and unless I have something entered wrong, it did not work....the shadow is still there

Shadow is still there? Hmmmn maybe it's something else besides a shadow. Are you able to post a sample presentation. Not sure if I can even open up a Mac version but I will definitely try. Also try going to your presentation select the text with the shadow, go to format > font > and see if the shadow checkbox is clear or not. That we can determine if were looking at the right issue.

Thanks

JohnWilson · #14 10-31-2014, 01:50 AM

The shadow object model changed in version 2007.

I don't have a mac but try this:

Code:

 With CheckShape.TextFrame2.TextRange.Font
.Name = "Times New Roman"
.Size = 60
.Bold = msoTrue
.Fill.ForeColor.RGB = vbBlack
.Shadow.Visible = msoFalse           'Add other attributes as needed.
End With

excelledsoftware · #15 11-01-2014, 11:56 AM

Quote:

Originally Posted by JohnWilson

The shadow object model changed in version 2007.

I don't have a mac but try this:

Code:

 With CheckShape.TextFrame2.TextRange.Font           .Name = "Times New Roman"           .Size = 60           .Bold = msoTrue           .Fill.Forecolor.RGB = vbBlack           .Shadow.Visible = msoFalse           'Add other attributes as needed.         End With

Thanks for the correction John,

I would totally upgrade my version of PowerPoint but since I use it mostly for animation I cant live without the pivot rotation feature by holding CTRL. Once Microsoft fixes that I will most likely upgrade.

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