Underline Property Example

This example sets the formatting for the text in shape two on slide one in the active presentation.

With Application.ActivePresentation.Slides(1).Shapes(2)
    With .TextFrame.TextRange.Font
        .Size = 32
        .Name = "Palatino"
        .Underline = True
    End With
End With