Shapes.Title (PowerPoint)

Returns a Shape object that represents the slide title.

You can also use the Item method of the Shapes or Placeholders collection to return the slide title.

Dim shpTitle As Shape
Set shpTitle = ActiveWindow.Selection.SlideRange(1).Shapes.Title