TextRange.Characters-Methode (PowerPoint)

Artikel
09/17/2024

Gibt ein TextRange -Objekt zurück, das die angegebene Untermenge von Textzeichen darstellt. Informationen zu Zählvorgängen und Schleifenläufen durch die Zeichen eines Textbereichs finden Sie unter TextRange -Objekt.

Syntax

Ausdruck. Characters( _Start_, _Length_ )

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Start	Optional	Long	Das erste Zeichen im zurückgegebenen Bereich.
Length	Optional	Long	Die Anzahl der zurückzugebenden Zeichen.

Rückgabewert

TextRange

Hinweise

Wenn sowohl Start als auch Length nicht angegeben werden, beginnt der zurückgegebene Bereich mit dem ersten Zeichen und endet mit dem letzten Absatz des festgelegten Bereichs.

Wird Start angegeben, Length jedoch nicht, enthält der zurückgegebene Bereich genau ein Zeichen.

Wird Length angegeben, Start jedoch nicht, beginnt der zurückgegebene Bereich mit dem ersten Zeichen des festgelegten Bereichs.

Ist Start größer als die Anzahl der Zeichen des festgelegten Texts, beginnt der zurückgegebene Bereich mit dem letzten Zeichen des festgelegten Bereichs.

Ist Length größer als die Anzahl der Zeichen vom festgelegten Anfangszeichen bis zum Ende des Texts, enthält der zurückgegebene Bereich alle diese Zeichen.

Beispiel

In diesem Beispiel wird der Text für Form 2 von Folie 1 der aktiven Präsentation festgelegt und anschließend dem zweiten Zeichen eine Tiefstellung um 20 Prozent zugewiesen.

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

In diesem Beispiel wird jedes tiefgestellte Zeichen in Form 2 von Folie 1 fett formatiert.

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

Siehe auch

TextRange-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über