change all the slides fonts in powerpoint

Very often, I need to consolidate the presentation material from my co-workers to complete a total presentation.

Regardless of my instruction, each of them seems to fancy certain fonts. So when I consolidate all the slides, it does not have a uniform and consistence look. I need to change the fonts on each of the slides and this is very time consuming.

May I know if there is a way for me to have PowerPoint changes all the “Same category” fonts in one go? For example, can I have all the title to be Times Roman 16pt done easily instead of changing individual slides?

Who is Participating?
ildcConnect With a Mentor Commented:

If you created your master as you want it, this little code example should do the trick

Sub tst()
Dim slid As Slide
For Each slid In Application.ActivePresentation.Slides
    slid.Layout = slid.Layout
Next slid
End Sub

To create it, just goto tools-macro-visual basic editor
In the editor : Insert - Module
Copy and paste the code above
Once done, make sre you're somewhere in it and press F5.

Hi joshual,

that's quite a bit of work but maybe it's worth the trouble because we've to use code

-first open the VB Editor with ALT+F11
-then insert a new module
-paste the code

Sub t()
  Dim oSld As Slide
  Dim oShp As Shape
  Dim oTxtRng As TextRange

  For Each oSld In ActivePresentation.Slides

    '--Loop through all the shapes and extract the text
    For Each oShp In oSld.Shapes
      If oShp.HasTextFrame And oShp.TextFrame.HasText Then

        On Error Resume Next
        If oShp.PlaceholderFormat.Type = ppPlaceholderCenterTitle _
        Or oShp.PlaceholderFormat.Type = ppPlaceholderTitle _
        Or oShp.PlaceholderFormat.Type = ppPlaceholderVerticalTitle Then

          For Each oTxtRng In oShp.TextFrame.TextRange.Paragraphs
            MsgBox oTxtRng.Text
            oTxtRng.Font.Name = "Arial"
            oTxtRng.Font.Size = 16
            oTxtRng.Font.Bold = True
          Next oTxtRng

        End If

      End If
    Next oShp

  Next oSld

End Sub

-what this will do is loop trough all slides in your active presentation
-then look up all the titles specified with the pp etc... syntax
-this can be done also for all other kind of text styles
-but then you've to play around a bit since i don't know what your encountering

Could you create a master instead with all the good fonts and the reapply the master to all the slides?
This avoids the need for coding.

Easily Design & Build Your Next Website

Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.

joshualAuthor Commented:
Hi bruintje: Thanks for your reply. You solution looks complicated. I'll KIV it first.

Hi ildc: How do I re-apply the master to all the slides? I did try to change the master slide but the chnages only effect on some of the sildes.

You'll have to do it slide by slide. Select the slide, right click, select slide layout, take the correct slide layout and take reapply master.

joshualAuthor Commented:
Hi ildc,

If I do as told by you, instead of changing every slides and every cat. of fonts, I still have to change every slides. ..:-(

Is there a way for me just to change it once and effect all slides? In world, I just need to change the styles and all fonts related to the style will be changed...

Your solution is not so good... sorry

joshualAuthor Commented:
Thanks ildc,

Go it.
Glad to be of help

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.