Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Shape.TextFrame2, propriété (projet)Shape.TextFrame2 Property (Project)

office 365 dev account|Dernière mise à jour: 29/09/2017
|
1 Contributeur

Obtient un objet TextFrame2 qui contient le texte dans un cadre de texte et les membres qui contrôlent l’alignement, ancrage et autres fonctionnalités du cadre de texte. En lecture seule 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.

SyntaxeSyntax

expression. TextFrame2expression. TextFrame2

expression Variable qui représente un objet Shape .expression A variable that represents a Shape object.

RemarquesRemarks

Un objet TextFrame2 contient de nombreux les mêmes propriétés sous la forme d’un objet TextFrame , ainsi que des propriétés supplémentaires telles que le redimensionnement automatiqueet WordArtformatThreeD.A TextFrame2 object contains many of the same properties as a TextFrame object, plus additional properties such as AutoSize, ThreeD, and WordArtformat.

ExempleExample

L’exemple suivant crée deux zones de texte et les ajoute à un objet ShapeRange , définit les deux cadres de texte à ajuster automatiquement le texte, définit la couleur de premier plan du texte dans la première forme de zone de texte à rouge, définit la couleur de premier plan de la plage de formes à un tan jaunâtre, puis utilise la propriété TextEffect pour définir les propriétés de police dans les deux zones de texte dans la plage de formes.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.

La propriété TextFrame2 pour les objets Shape sont affichés en gras.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

Valeur de propriétéProperty value

TEXTFRAME2TEXTFRAME2

Voir aussiSee also

Autres ressourcesOther resources

Shape, objetTextFrame2Shape ObjectTextFrame2

© 2018 Microsoft