Generate a List of PowerPoint Fonts

Generate a List of PowerPoint Fonts

September 4, 2017

If you've got a lengthy PowerPoint presentation you may want to see if, and exactly where, the fonts you used in different text boxes and shapes vary.   You can use this macro to do this:

 

 

Sub CheckFonts()
  Dim aTF As TextFrame, aShape As Shape, aSlide As Slide, oLayout As CustomLayout
  Dim sFontsOnSlide As String
  
  For Each aSlide In ActivePresentation.Slides
    sFontsOnSlide = ""
    For Each aShape In aSlide.Shapes
      If aShape.TextFrame.HasText Then
        sFontsOnSlide = sFontsOnSlide & aShape.TextFrame.TextRange.Font.Name & ", "
      End If
    Next aShape
    Debug.Print "Slide: " & aSlide.SlideNumber, sFontsOnSlide
  Next aSlide
  
  For Each oLayout In ActivePresentation.SlideMaster.CustomLayouts
    sFontsOnSlide = ""
    For Each aShape In oLayout.Shapes
      If aShape.TextFrame.HasText Then
        sFontsOnSlide = sFontsOnSlide & aShape.TextFrame.TextRange.Font.Name & ", "
      End If
    Next aShape
    Debug.Print "Layout: " & oLayout.Name, sFontsOnSlide
  Next oLayout
End Sub

 

Simply press ALT + F11, insert the VBA code in a new module, and press play.  So if you have a presentation like this:

 

 

. . . you'll get a list in Visual Basic like the one shown in the lower pane.  (If this doesn't appear at first, press CTRL + G and it should pop up.

 

Slide: 1      Calibri Light, BatangChe, 
Slide: 2      AngsanaUPC, 
Slide: 3      Berlin Sans FB Demi, 
Slide: 4      Cooper Black, , 
Slide: 5      Haettenschweiler, Haettenschweiler, 
Slide: 6      Rockwell Extra Bold, Rockwell Extra Bold, 

 

 

 The fonts used on each slide will be displayed.   The macro also shows previous fonts used in the presentation.   It is particularly helpful if you have a presentation with hundreds of slides and you want to make sure the font is consistent throughout. 

 

Thanks to Andrew Lockton for posting this code here

 

 

 

Please reload

Some elements on this page did not load. Refresh your site & try again.

Contact Me With Your Litigation Support Questions:

seankevinoshea@hotmail.com

  • Twitter Long Shadow

© 2015 by Sean O'Shea . Proudly created with Wix.com