Powerpoint Update all Fonts

Sub FarEastFontsToArial()
Dim oSh As Shape, oSl As Slide, strFont as String
strFont = "Arial"'or Calibri or your choiceFor 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 = strFontEnd If
Next
If ActivePresentation.HasTitleMaster Then
For Each oSh In ActivePresentation.TitleMaster.Shapes
If oSh.HasTextFrame Then
oSh.TextFrame.TextRange.Font.NameFarEast = strFontEnd If
Next Osh
End If
End Sub

2 thoughts on “Powerpoint Update all Fonts”

I have checked your page and i've found some duplicate content, that's
why you don't rank high in google's search results, but there is a tool that
can help you to create 100% unique content, search for; Boorfe's tips unlimited content