Levels Property Example

This example sets the first-line indent and hanging indent for outline level one in body text on the slide master for the active presentation, and then it sets the font name and font size for text at that level.

With Application.ActivePresentation _
        .SlideMaster.TextStyles(ppBodyStyle)
    With .Ruler.Levels(1) ' sets indents for level 1
        .FirstMargin = 9
        .LeftMargin = 54
    End With
    With .Levels(1).Font  ' sets text formatting for level 1
        .Name = "arial"
        .Size = 36
    End With
End With