Superscript Property Example

This example sets the text for shape two on slide one and then makes the fifth character superscript with a 30-percent offset.

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame
    With .TextRange
        .Text = "E=mc2"
        .Characters(5, 1).Font.Superscript = True
    End With
End With