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

expresión. TextFrame2

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 ajustarse automáticamente al texto, se establece el color de primer plano del texto de la primera forma del cuadro de texto en rojo, se establece el color de primer plano del intervalo de formas en un color amarillento y, a continuación, se usa la propiedad TextEffect para establecer las propiedades de fuente en ambos cuadros de texto del intervalo 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

Consulte también

TextFrame2 del objeto ShapeRange

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.