Propriedade Shape.TextFrame2 (Project)

Obtém um objeto TextFrame2 que contém o texto numa moldura de texto e os membros que controlam o alinhamento, a ancoragem e outras funcionalidades da moldura de texto. TextFrame2 somente leitura.

Sintaxe

expressão. TextFrame2

expressão Uma variável que representa um objeto Shape.

Comentários

Um objeto TextFrame2 contém muitas das mesmas propriedades que um objeto TextFrame , além de propriedades adicionais, como o Dimensionamento Automático, o ThreeD e o WordArtformat.

Exemplo

O exemplo seguinte cria duas caixas de texto e adiciona-as a um objeto ShapeRange , define ambas as molduras de texto para ajustar automaticamente o texto, define a cor de primeiro plano do texto na primeira forma da caixa de texto para vermelho, define a cor de primeiro plano do intervalo da forma para um bronzeado amarelo e, em seguida, utiliza a propriedade TextEffect para definir as propriedades do tipo de letra em ambas as caixas de texto no intervalo de formas.

A propriedade TextFrame2 para os objetos de Forma individuais é apresentada a negrito.

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 propriedade

TEXTFRAME2

Confira também

TextFrame2do Objeto da Forma

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.