Shapes.AddTitle, méthode (PowerPoint)

Rétablit un espace de titre réservé précédemment supprimé dans une diapositive. Renvoie un objet Shape qui représente le titre restauré.

Syntaxe

expression. AddTitle

expression Variable qui représente un objet Shapes.

Valeur renvoyée

Shape

Remarques

Cette méthode engendre une erreur si vous n’avez pas précédemment supprimé l’espace de titre réservé de la diapositive concernée. Utilisez la propriété HasTitle pour déterminer si l’espace réservé de titre a été supprimé.

Exemple

Cet exemple rétablit l’espace de titre réservé dans la dia 1 de la présentation active si cet espace réservé a été supprimé. Le texte du titre rétabli est « 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

Voir aussi

Objet Shapes

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.