Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade Shape.TextFrame2 (projeto)Shape.TextFrame2 Property (Project)

office 365 dev account|Última Atualização: 29/09/2017
|
1 Colaborador

Obtém um objeto TextFrame2 que contém o texto em um quadro de texto e os membros que controlam o alinhamento, ancoragem e outros recursos do quadro de texto. Somente leitura TextFrame2.Gets a TextFrame2 object that contains the text in a text frame and the members that control the alignment, anchoring, and other features of the text frame. Read-only TextFrame2.

SintaxeSyntax

expressão. TextFrame2expression. TextFrame2

expressão Uma variável que representa um objeto Shape .expression A variable that represents a Shape object.

ComentáriosRemarks

Um objeto TextFrame2 contém muitos das mesmas propriedades de um objeto TextFrame , além de propriedades adicionais como AutoSize, ThreeDe WordArtformat.A TextFrame2 object contains many of the same properties as a TextFrame object, plus additional properties such as AutoSize, ThreeD, and WordArtformat.

ExemploExample

O exemplo a seguir cria duas caixas de texto e adiciona-los a um objeto ShapeRange , define a ambos os quadros de texto para ajustar automaticamente o texto, define a cor de primeiro plano do texto na primeira forma de caixa de texto como vermelho, define a cor de primeiro plano do intervalo de forma a um tan amarelado e, em seguida, usa a propriedade TextEffect para definir propriedades de fonte em ambas as caixas de texto no intervalo de formas.The following example creates two text boxes and adds them to a ShapeRange object, sets both text frames to automatically fit the text, sets the foreground color of text in the first text box shape to red, sets the foreground color of the shape range to a yellowish tan, and then uses the TextEffect property to set font properties on both text boxes in the shape range.

A propriedade TextFrame2 para objetos Shape individuais são mostrados em negrito.The TextFrame2 property for the individual Shape objects are shown in bold font.

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 is 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 propriedadeProperty value

TEXTFRAME2TEXTFRAME2

Veja tambémSee also

Outros recursosOther resources

Objeto ShapeTextFrame2Shape ObjectTextFrame2

© 2018 Microsoft