Propiedad ShapeRange.TextFrame2 (Project)

Obtiene un objeto TextFrame2 que contiene el texto de un marco de texto y los miembros que controlan la alineación, el anclaje y otras características del marco de texto. Valor TextFrame2 de solo lectura.

Sintaxis

más sencilla.Marco de texto2

expresión Variable que representa un objeto 'ShapeRange'.

Comentarios

Un objeto TextFrame2 contiene muchas de las mismas propiedades que un objeto TextFrame , además de propiedades adicionales como Autosize, ThreeD y WordArtformat.

Ejemplo

En el ejemplo siguiente se crean dos cuadros de texto y se agregan a un objeto ShapeRange , se establecen ambos marcos de texto para que se ajusten automáticamente al texto, se establece en rojo el color de primer plano del texto en la primera forma del cuadro de texto, se establece el color de primer plano del rango de formas en un tostado amarillento y, a continuación, se usa la propiedad TextEffect para establecer las propiedades de la fuente en los dos cuadros de texto del rango de formas.

La propiedad TextFrame2 del objeto ShapeRange se muestra en negrita.

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

Valor de propiedad

TEXTFRAME2

Vea también

Objeto ShapeRangeTextFrame2

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.