HasTitle Property
Applies To
Shapes collection object.
Description
True if the collection of objects on the specified slide contains a title placeholder. Read-only Long.
Example
This example restores the title placeholder to slide one in the active presentation if this placeholder has been deleted. The text of the restored title is "Restored title."
With ActivePresentation.Slides(1)
If .Layout <> ppLayoutBlank Then
With .Shapes
If Not .HasTitle Then
.AddTitle.TextFrame.TextRange.Text = "Restored title"
End If
End With
End If
End With