Fonts Property Example

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