Objet TextFrame2 (PowerPoint)

Représente le cadre de texte dans un objet Shape ou ShapeRange . Contient le texte dans le cadre de texte et affiche les propriétés et méthodes qui contrôlent l’alignement et l’ancrage du cadre de texte.

Remarques

Utilisez la propriété TextFrame2 des objets Shape et ShapeRange pour renvoyer un objet TextFrame2 .

Utilisez la propriété HasTextFrame pour déterminer si une forme ou une plage de formes possède un cadre de texte, et utilisez la propriété HasText pour savoir si le cadre de texte contient du texte.

Exemple

L’exemple suivant ajoute un rectangle dans une diapositive, du texte au rectangle, puis définit les marges du cadre de texte.

Public Sub TextFrame2_Example()



    Set pptSlide = ActivePresentation.Slides(1)

    With pptSlide.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame2

        .TextRange.Text = "Here is some sample text"

        .MarginBottom = 10

        .MarginLeft = 10

        .MarginRight = 10

        .MarginTop = 10

    End With

    

End Sub

L’exemple suivant montre comment utiliser la propriété HasTextFrame pour déterminer si une forme possède un cadre de texte, puis explique comment utiliser la propriété HasText pour déterminer si le cadre du texte contient du texte.

Public Sub HasTextFrame_Example()



    Set pptSlide = ActivePresentation.Slides(1)

    For Each pptShape In pptSlide.Shapes

        If pptShape.HasTextFrame Then

            With pptShape.TextFrame2

                If .HasText Then MsgBox .TextRange.Text

            End With

        End If

    Next

    

End Sub

Voir aussi

Référence du modèle objet PowerPoint

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.