TextRange メソッド (PowerPoint)TextRange.Characters method (PowerPoint)

指定されたテキスト文字サブセットを表す TextRange オブジェクトを返します。指定した範囲のテキストの文字数カウントおよびループについては、 TextRange オブジェクトを参照してください。Returns a TextRange object that represents the specified subset of text characters. For information about counting or looping through the characters in a text range, see the TextRange object.

構文Syntax

expression.expression. Characters( _Start_, _Length_ )

TextRangeオブジェクトを表す変数を取得します。expression A variable that represents a TextRange object.

パラメーターParameters

名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
開始Start オプションOptional 長整数型 (Long)Long 返される範囲の先頭の文字を指定します。The first character in the returned range.
LengthLength オプションOptional 長整数型 (Long)Long 返される文字数を指定します。The number of characters to be returned.

戻り値Return value

TextRangeTextRange

解説Remarks

引数 Start と引数 Length の両方を省略する場合、返される文字列は指定した範囲のテキストの先頭の文字から最後の段落の終わりまでになります。If both Start and Length are omitted, the returned range starts with the first character and ends with the last paragraph in the specified range.

引数 Start を指定し、引数 Length を指定しない場合、返される文字列は 1 文字です。If Start is specified but Length is omitted, the returned range contains one character.

引数 Length を指定し、引数 Start を指定しない場合、返される文字列は指定した範囲の先頭の文字から始まります。If Length is specified but Start is omitted, the returned range starts with the first character in the specified range.

引数 Start が指定したテキストの文字数より大きい場合、返される文字列は指定した範囲のテキストの最後の文字から始まります。If Start is greater than the number of characters in the specified text, the returned range starts with the last character in the specified range.

引数 Length が指定した範囲のテキストの先頭の文字から最後の文字までの文字数より大きい場合、返される文字列には指定した範囲の文字がすべて含まれます。If Length is greater than the number of characters from the specified starting character to the end of the text, the returned range contains all those characters.

Example

次の使用例は、作業中のプレゼンテーションのスライド 1 の図形 2 にテキストを配置し、2 番目の文字を 20% の相対位置に配置する下付き文字とします。This example sets the text for shape two on slide one in the active presentation and then makes the second character a subscript character with a 20-percent offset.

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


次の使用例は、スライド 1 の図形 2 のすべての下付き文字を太字として書式設定します。This example formats every subscript character in shape two on slide one as bold.

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


関連項目See also

TextRange オブジェクトTextRange Object

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.