NameAscii Property Example

This example sets the font used for ASCII characters in the title of the first slide to Century.

Application.ActivePresentation.Slides(1).Shapes.Title _
    .TextFrame.TextRange.Font.NameAscii = "Century"