Subscript Property Example

This example enlarges the first character in the title on slide one if that character is subscript.

With Application.ActivePresentation.Slides(1) _
        .Shapes.Title.TextFrame.TextRange
    With .Characters(1, 1).Font
        If .Subscript Then
            scaleChar = -20 * .BaselineOffset
            .Size = .Size * scaleChar
        End If
    End With
End With