次の方法で共有


TextRange.Length プロパティ (PowerPoint)

指定したテキスト範囲の長さ (文字数) を取得します。 値の取得のみ可能です。

構文

長さ

TextRange オブジェクトを表す変数。

戻り値

Long

次の使用例は、スライド 2 のタイトルが 6 文字以上の場合にタイトルのフォント サイズを 48 ポイントに設定し、タイトルが 5 文字以下の場合にフォント サイズを 72 ポイントに設定します。

Set myDocument = ActivePresentation.Slides(2)

With myDocument.Shapes(1).TextFrame.TextRange

    If .Length > 5 Then

        .Font.Size = 48

    Else

        .Font.Size = 72

    End If

End With


関連項目

TextRange オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。