top of page

Generate a List of PowerPoint Fonts


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.


Sean O'Shea has more than 20 years of experience in the litigation support field with major law firms in New York and San Francisco.   He is an ACEDS Certified eDiscovery Specialist and a Relativity Certified Administrator.

​

The views expressed in this blog are those of the owner and do not reflect the views or opinions of the owner’s employer.

​

If you have a question or comment about this blog, please make a submission using the form to the right. 

Your details were sent successfully!

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

bottom of page