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