Which Slides in a PowerPoint presentation have links to other files

The vba code posted to the site of PPTools here, will provide you with a list all files linked to in a PowerPoint presentation. Enter the below code in a new module and run it and it should generate a new graphic file for each slide which contains a link to another file.

Sub ShowMeTheHyperlinks() ' Lists the slide number, shape name and address ' of each hyperlink

Dim oSl As Slide Dim oHl As Hyperlink

For Each oSl In ActivePresentation.Slides For Each oHl In oSl.Hyperlinks If oHl.Type = msoHyperlinkShape Then MsgBox "HYPERLINK IN SHAPE" _ & vbCrLf _ & "Slide: " & vbTab & oSl.SlideIndex _ & vbCrLf _ & "Shape: " & oHl.Parent.Parent.Name _ & vbCrLf _ & "Address:" & vbTab & oHl.Address _ & vbCrLf _ & "SubAddress:" & vbTab & oHl.SubAddress Else ' it's text MsgBox "HYPERLINK IN TEXT" _ & vbCrLf _ & "Slide: " & vbTab & oSl.SlideIndex _ & vbCrLf _ & "Shape: " & oHl.Parent.Parent.Parent.Parent.Name _ & vbCrLf _ & "Address:" & vbTab & oHl.Address _ & vbCrLf _ & "SubAddress:" & vbTab & oHl.SubAddress End If Next ' hyperlink Next ' Slide

End Sub Or to get a list off all the hyperlinks in the presentation in a text file:

Option Explicit

Sub FileEmDano() ' Lists the slide number, shape name and address ' of each hyperlink and saves the results to a file:

Dim oSl As Slide Dim oHl As Hyperlink Dim sTemp As String Dim sFileName As String

' Output the results to this file: sFileName = Environ$("TEMP") & "\" & "HyperlinkList.TXT"

For Each oSl In ActivePresentation.Slides For Each oHl In oSl.Hyperlinks If oHl.Type = msoHyperlinkShape Then sTemp = sTemp & "HYPERLINK IN SHAPE on Slide:" & vbTab & oSl.SlideIndex _ & vbCrLf _ & "Shape: " & oHl.Parent.Parent.Name _ & vbCrLf _ & "Address:" & vbTab & oHl.Address _ & vbCrLf _ & "SubAddress:" & vbTab & oHl.SubAddress & vbCrLf & vbCrLf Else ' it's text sTemp = sTemp & "HYPERLINK IN TEXT on Slide:" & vbTab & oSl.SlideIndex _ & vbCrLf _ & "Shape: " & oHl.Parent.Parent.Parent.Parent.Name _ & vbCrLf _ & "Address:" & vbTab & oHl.Address _ & vbCrLf _ & "SubAddress:" & vbTab & oHl.SubAddress & vbCrLf & vbCrLf End If Next ' hyperlink

Next ' Slide

Call WriteStringToFile(sFileName, sTemp) Call LaunchFileInNotePad(sFileName)

End Sub

Counting the Number of Slides in Multiple Presentations

Mike Halpin has posted some very useful PowerShell code to his site which can be used to calculate the number of slides in each PowerPoint file saved to a particular directory. See his posting here. When running the code be sure to exclude his synopsis listed in gray at the beginning. Only use the part posted below.

Open PowerShell ISE (x86) and put the code in the white script pane at the top. Edit the line beginning '$Path = ' to list the folder in which you have saved multiple PowerPoint files. Press F5 to run the script and a chart will be generated in the blue console below listing the name of each presentation and the number of slides in it.

The results look like this:

[CmdletBinding()] [Alias()] [OutputType([psobject])] Param( # The folder containing the files to count [Parameter(ValueFromPipelineByPropertyName=$true, Position=0)] $Path = 'C:\FooFolder\ppts' ) Add-Type -AssemblyName System.Windows.Forms Add-Type -AssemblyName Office Add-Type -AssemblyName Microsoft.Office.Interop.Powerpoint Write-Verbose "Getting files from $path" $files = Get-ChildItem -filter *.ppt* -Path $Path [psobject]$NumberOfSlides= @() Foreach ($file in $files){ $application = New-Object -ComObject powerpoint.application Write-Verbose "Opening $file" $presentation = $application.Presentations.open($file.fullname) $slideCount = New-Object System.Object $slideCount | Add-Member -type NoteProperty -name Name -value $file.name $slideCount | Add-Member -type NoteProperty -name Slides -value $presentation.Slides.Count #Introduce a slight wait so powerpnt.exe has time to process file Start-Sleep -Seconds 2 $presentation.Close() $NumberOfSlides += $slideCount } $NumberOfSlides Write-Verbose "Cleaning up processes" get-process powerpnt | Stop-Process

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.