BaselineOffset Property Example
This example sets the text for shape two on slide one and then makes the second character subscript with a 20-percent offset.
With Application.ActivePresentation.Slides(1) _
.Shapes(2).TextFrame.TextRange
.Text = "H2O"
.Characters(2, 1).Font.BaselineOffset = -0.2
End With