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.

PowerPoint Motion Paths

Most MS Office are users are probably familiar with the PowerPoint's basic animation features which allow objects to fly in from the left, grow and expand from the center of the slide, and so forth. It's also possible to set specific motion paths for objects.

If you right click on an object, select the Animation tab, Add Animation, More Motion Paths . . ., you will see that you have the option to set several different types of paths for the object.

You can select the motion path that you add to the object and expand or contract it on the slide.

If you select an object, you'll see that it appears in a list of animated objects to the right. Right click on an item in that list and you'll see you have the ability to modify Effect Options.

It's possible to set the duration of the animation and also on the Timing tab how many times you want the animation to repeat.

You can also set custom animation for an object while you have it selected from the Animation Pane list. You can simply draw the path you want the object to follow on the slide.

Scrolling Text Boxes on PowerPoint Slides

Tonight's tip shows how to insert a scrolling text box on a PowerPoint slide.

Go to File . . . Options . . . Customize Ribbon, and on the right check off Developer. A new tab will appear. On the developer tab, in the Controls section, click on Active X text box - the one with ab| in a white box.

Use your cursor to draw a box on the slide and then with it selected, go back to the ribbon and select 'Properties'. Set ScrollBars to 2-fmScrollBarsVertical

Multiline to TRUE

. . . and enter the text you want in the Text field in the Data section.

If you want to add more text to the Active X text box, right click on it and select TextBox Object . . . Edit . Enter presentation mode and you'll see you can scroll up and down in the box.