This example replaces the Times New Roman font with the Courier font in the active presentation.
Application.ActivePresentation.Fonts _
.Replace "Times New Roman", "Courier"
This example sets the fixed-width font default Web option, specified by the character set constant msoCharacterSetEnglishWesternEuropeanOtherLatinScript, to be Courier New 10 points.
With Application.DefaultWebOptions _
.Fonts(msoCharacterSetEnglishWesternEuropeanOtherLatinScript)
.FixedWidthFont = "Courier New"
.FixedWidthFontSize = 10
End With