Text Property Example

This example sets the text and font style for the title on slide one in the active presentation.

Set myPres = Application.ActivePresentation
With myPres.Slides(1).Shapes.Title.TextFrame.TextRange
    .Text = "Welcome!"
    .Font.Italic = True
End With