TextStyles Property Example

This example sets the font name and font size for level-one body text on slides in the active presentation.

With ActivePresentation.SlideMaster_
        .TextStyles(ppBodyStyle).Levels(1)
    With .Font
        .Name = "arial"
        .Size = 36
    End With
End With