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.