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