ShapeRange.TextEffect プロパティ (Project)

図形範囲のテキストの書式設定プロパティを取得します。 読み取り専用の TextEffectFormat。

構文

式。TextEffect

式 'ShapeRange' オブジェクトを表す変数。

例

次の例では、テキスト ボックス図形を含む図形範囲を作成し、テキスト フレーム内のテキストの前景色を赤に設定し、テキスト ボックス図形の前景色を黄褐色に設定してから、 TextEffect プロパティを使用してフォント プロパティを設定します。

図形範囲に複数のテキスト ボックス図形がある場合は、それに応じて各テキスト ボックスのフォント プロパティが変更されます。

Sub FormatTextBox()
    Dim theReport As Report
    Dim textShape As shape
    Dim reportName As String
    Dim sRange As ShapeRange
    
    reportName = "Textbox range report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set textShape = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 50, 350, 80)
    textShape.Name = "My text box"
    
    textShape.TextFrame2.TextRange.Text = "This is a test. It's only a test. "
    textShape.TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = &H2020CC
    textShape.Fill.ForeColor.RGB = &H88CCCC
    
    Set sRange = theReport.Shapes.Range(Array("My text box"))
    
    With sRange.TextEffect
        .FontName = "Courier New"
        .FontBold = True
        .FontItalic = True
        .FontSize = 28
    End With
End Sub

プロパティ値

TEXTEFFECTFORMAT

関連項目

ShapeRange オブジェクトShape.TextEffect プロパティTextEffectFormat

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

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