Powerpoint Update all Fonts

Update all Slides' single Font - to improve readability via video projector

REVERTs multiple fonts to the SINGLE font (Arial) chosen on line 3

Sub FarEastFontsToArial()
 Dim oSh As Shape, oSl As Slide, strFont as String
strFont = "Arial" 'or Calibri or your choice

For Each oSl In ActivePresentation.Slides
 For Each oSh In oSl.Shapes
 If oSh.HasTextFrame Then
 oSh.TextFrame.TextRange.Font.NameFarEast = strFont
 End If
 Next
 Next

For Each oSh In ActivePresentation.SlideMaster.Shapes
 If oSh.HasTextFrame Then
 oSh.TextFrame.TextRange.Font.NameFarEast = strFont
 End If
 Next

If ActivePresentation.HasTitleMaster Then
 For Each oSh In ActivePresentation.TitleMaster.Shapes
 If oSh.HasTextFrame Then
 oSh.TextFrame.TextRange.Font.NameFarEast = strFont 
End If 
Next Osh
End If 
End Sub

'Must turn on macros in File | Options

Leave a Reply

Your email address will not be published. Required fields are marked *