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