TextRange.Characters, méthode (PowerPoint)

Renvoie un objet TextRange qui représente le sous-ensemble spécifié de caractères de texte. Pour plus d’informations sur le comptage ou la boucle des caractères d’une plage de texte, consultez l’objet TextRange .

Syntaxe

expression. Characters( _Start_, _Length_ )

Expression Variable qui représente un objet TextRange .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Start	Facultatif	Long	Premier caractère de la plage renvoyée.
Longueur	Facultatif	Long	Nombre de caractères à renvoyer.

Valeur renvoyée

TextRange

Remarques

Si les paramètres Début et Longueur sont tous deux omis, la page renvoyée commence par le premier caractère et se termine par le dernier paragraphe de la plage spécifiée.

Si le paramètre Début est spécifié mais pas le paramètre Longueur, la plage renvoyée contient un caractère.

Si le paramètre Longueur est spécifié mais pas le paramètre Début, la plage renvoyée commence par le premier caractère de la plage spécifiée.

Si le paramètre Début est supérieur au nombre de caractères dans le texte spécifié, la plage renvoyée commence par le dernier caractère de la plage spécifiée.

Si le paramètre Longueur est supérieur au nombre de caractères, du premier caractère spécifié à la fin du texte, la plage renvoyée contient ces caractères.

Exemple

Cet exemple permet de définir le texte pour la forme 2, de la diapositive 1, dans la présentation active, puis de définir le second caractère comme exposant avec un décalage de 20 %.

Dim charRange As TextRange

With Application.ActivePresentation.Slides(1).Shapes(2)

    Set charRange = .TextFrame.TextRange.InsertBefore("H2O")

    charRange.Characters(2).Font.BaselineOffset = -0.2

End With

Cet exemple met en gras tous les caractères en indice de la deuxième forme de la première diapositive.

With Application.ActivePresentation.Slides(1).Shapes(2) _
    .TextFrame.TextRange

    For i = 1 To .Characters.Count

        With .Characters(i).Font

            If .Subscript Then .Bold = True

        End With

    Next

End With

Voir aussi

Objet TextRange

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.