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"