#1
|
|||
|
|||
Combine multiple presentations
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. |
#2
|
|||
|
|||
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 Let me know what else you need. Thanks |
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
Quote:
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 |
#5
|
|||
|
|||
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 |
#6
|
|||
|
|||
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. |
#7
|
|||
|
|||
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 Thanks |
#8
|
|||
|
|||
Sorry, I have been traveling. This is great. Thank you very much
|
#9
|
|||
|
|||
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..... :-) |
#10
|
|||
|
|||
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 Thanks |
#11
|
|||
|
|||
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 |
#12
|
|||
|
|||
I tried this and unless I have something entered wrong, it did not work....the shadow is still there
|
#13
|
|||
|
|||
Quote:
Thanks |
#14
|
|||
|
|||
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 Last edited by JohnWilson; 11-02-2014 at 02:21 PM. |
#15
|
|||
|
|||
Quote:
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 |