Font Object

Example

The following examples describes how to do the following:

• Return the Font object that represents the font attributes of a specified bullet, a specified range of text, or all text at a specified outline level
• Return a Font object from the collection of all the fonts used in the presentation

Use the Font property to return the Font object that represents the font attributes for a specific bullet, text range, or outline level. The following example sets the title text on slide one and sets the font properties.

With ActivePresentation.Slides(1).Shapes.Title _ .TextFrame.TextRange .Text = "Volcano Coffee" With .Font .Italic = True .Name = "Palatino" .Color.RGB = RGB(0, 0, 255) End With End With

Use Fonts(index), where index is the font's name or index number, to return a single Font object. The following example checks to see whether font one in the active presentation is embedded in the presentation.

If ActivePresentation.Fonts(1).Embedded = _ True Then MsgBox "Font 1 is embedded"

See also:

• Microsoft PowerPoint Object Model Overview
• Font Object Members