ShapeRange.TextFrame2 プロパティ (Project)

レイアウト枠内のテキスト、および配置、アンカー設定などのレイアウト枠の他の機能を制御するメンバーが含まれる TextFrame2 オブジェクトを取得します。 読み取り専用 TextFrame2。

構文

式。TextFrame2

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

注釈

TextFrame2 オブジェクトには、TextFrame オブジェクトと同じプロパティが多数あります。加えて、AutoSize、ThreeD、WordArtformat などの追加のプロパティもあります。

例

次の例では、2 つのテキスト ボックスを作成し、それらを ShapeRange オブジェクトに追加し、両方のレイアウト枠がテキストに合わせて自動調整されるように設定します。さらに最初のテキスト ボックス図形のテキストの前景色を赤に、図形範囲の前景色を黄褐色に設定してから、TextEffect プロパティを使用して図形範囲内の両方のテキスト ボックスのフォント プロパティを設定します。

ShapeRange オブジェクトの TextFrame2 プロパティは太字のフォントで表示されます。

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

プロパティ値

TEXTFRAME2

関連項目

ShapeRange オブジェクトTextFrame2

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

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