Note
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Ajoute une chaîne à la fin de la plage de texte spécifiée. Renvoie un objet TextRange qui représente le texte ajouté. Utilisée sans argument, cette méthode renvoie une chaîne vide à la fin de la plage spécifiée.
Syntaxe
expression.
InsertAfter( _NewText_ )
expression Variable qui représente un objet TextRange .
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| NewText | Facultatif | Chaîne | Texte à insérer. La valeur par défaut est une chaîne vide. |
Exemple
Cet exemple montre comment ajouter la chaîne « : Test version » à la fin du titre de la diapositive 1 de la présentation en cours.
With Application.ActivePresentation.Slides(1).Shapes(1)
.TextFrame.TextRange.InsertAfter ": Test version"
End With
Cet exemple montre comment ajouter le contenu du Presse-papiers à la fin du titre de la diapositive 1.
Application.ActivePresentation.Slides(1).Shapes(1).TextFrame _
.TextRange.InsertAfter.Paste
Voir aussi
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.