PowerPoint VBA: Change UPPERCASE To Normal Case

Created: Wednesday, December 6, 2017, posted by Geetesh Bajaj at 9:30 am



When you add slides to a presentation based on some of PowerPoint’s built-in Themes, you may find that all titles (headings and/or subheads) scream out in UPPERCASE letters, no matter what you do!

Uppercase to Normal Case 01

In some cases, this behavior may happen because the chosen font contains only uppercase letters. Alternatively, and more likely, the presentation’s Theme has placeholders set to produce all uppercase (aka capital) letters. The Circuit and Integral themes that come with some versions of PowerPoint are examples of such Themes.

Related Content: Which Themes are Installed within Office Versions?

You can laboriously select the text on each Master and individual Layout in Slide Master view, and then use the Home tab | Font group, and click the Dialog Launcher. Then, in the resultant dialog, remove the checkmark next to All Caps each time.

Would VBA provide an easier and more elegant solution? Steve Rindsberg of PowerPoint FAQ and PPTools believes you can get the job done in less time it took you to read this paragraph! Do note that Steve’s code will not change your text to Sentence case or Title case–it merely removes the automatic UPPERCASE.

First you need to know how you can run VBA scripts in PowerPoint — then use this code. Explore the code a bit though.

Sub FixAllCaps()
 
    Dim oDes As Design
    Dim oLay As CustomLayout
    Dim oSh As Shape
 
    For Each oDes In ActivePresentation.Designs
        For Each oSh In oDes.SlideMaster.Shapes
            Call NoAllCaps(oSh)
        Next
        For Each oLay In oDes.SlideMaster.CustomLayouts
            For Each oSh In oLay.Shapes
                Call NoAllCaps(oSh)
            Next
        Next
    Next
 
End Sub
 
Sub NoAllCaps(ByRef oSh As Shape)
 
    With oSh
        If .HasTextFrame Then
            If .TextFrame2.HasText Then
                .TextFrame2.TextRange.Font.Allcaps = False
            End If
        End If
    End With
 
End Sub

Once you have placed this code in the VBA editor, close the window to get back to your PowerPoint window. Before you proceed further, it’s a great idea to save your file — be sure to save as a PowerPoint Macro-Enabled Presentation with the PPTM file extension. If you save as any of the other file formats, PowerPoint will offer to remove the macros, and then, of course, the code to change from UPPERCASE to default case will not work! See our PowerPoint File Formats page to learn about these file formats.

Then open or switch to the presentation with the UPPERCASE text and run the macro. To do that, press the Alt F8 shortcut key. In the Macro dialog box that appears, next to Macro in: choose All open presentations, as shown in the figure below. Click the FixAllCaps Macro name, and then click the Run button.

FixAllCaps VBA Macro

We tested this code using PowerPoint 2013 for Windows.

You can see the end result in the Figure below. Compare with a Figure of the same slides, earlier on this page, and you will notice that the word, AVOID is still in all uppercase. That’s because the original text was in uppercase and this VBA code does not change any text at all. Rather it removes any automatic UPPERCASE forced onto you!

Uppercase to Title Case 02

This VBA code works on all placeholders–even body text in Content placeholders! We tested this code on a presentation that used the Main Event theme that uses UPPERCASE for all body text.

Do note though that this code works only on text placeholders, and leaves text boxes alone. It also does not make any changes to text in shapes, charts, and elsewhere.

Related Content: Text Placeholders vs. Text Boxes in PowerPoint

You May Also Like: Use VBA in PowerPoint, Even if You Can’t Program for Nuts | Create Spirographs in PowerPoint Programmatically | Resources on PowerPoint Programming and VBA


Steve RindsbergSteve Rindsberg has been associated with PowerPoint since the product originated more than two decades ago — his PowerPoint FAQ site is a treasure trove of PowerPoint information.

When he’s not updating his site, he’s working on his popular PPTools add-ins for PowerPoint. Steve’s also into a lot of print technology related stuff.

See Also: VBA: Change One Shape to Another in PowerPoint

Related Posts

PowerPoint 2013 for Developers: Conversation with ... Jamie Garroch, CEO of GMARK Ltd., founded the company in 2009 to provide presentation professionals with PowerPoint software, content and training. Ja...
VBA Code: Change Embedded Videos to Linked? Have you created a huge monster PowerPoint file that's hundreds of megabytes in size or even a gigabyte? The culprit may be any videos you have in...
VBA Code: Random Number Generator Do you want a random number generator for your PowerPoint slide? Do you want some numbers from a chosen sequence of numbers to pop up every time you c...

Filed Under: Programming
Tagged as: , , , ,

1 Comment

Microsoft and the Office logo are trademarks or registered trademarks of Microsoft Corporation in the United States and/or other countries.

Plagiarism will be detected by Copyscape

© 2000-2017, Geetesh Bajaj - All rights reserved.

Web
Analytics
since November 02, 2000