Classe TextFrame2 (PowerPoint VBA)

La classe TextFrame2 représente le cadre de texte d’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.

Set

Pour utiliser une variable de classe TextFrame2, elle doit d'abord être instanciée, par exemple

Dim tf2 as TextFrame2
Set tf2 = ActiveWindow.RangeFromPoint.TextFrame2

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe TextFrame2 : ChartFormat.TextFrame2, Shape.TextFrame2 et ShapeRange.TextFrame2

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Format with its procedures PathFormat, WarpFormat et WordArtFormat

Propriétés

AutoSize Renvoie ou définit une valeur indiquant si la taille de la forme spécifiée est automatiquement modifiée en fonction du texte qu’elle contient. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).TextFrame2.AutoSize = msoAutoSizeMixed

Column Renvoie l’objet Column qui représente les colonnes du cadre de texte spécifié. En lecture seule.

Dim tc2Column As Office.TextColumn2
Set tc2Column = ActivePresentation.Slides(1).Shapes(1).TextFrame2.Column

HasText Indique si la forme qui contient le cadre de texte spécifié présente du texte qui lui est associé. En lecture seule.

Dim mtsHasText As Office.MsoTriState
mtsHasText = ActivePresentation.Slides(1).Shapes(1).TextFrame2.HasText

HorizontalAnchor Renvoie ou définit l’alignement horizontal du texte dans un cadre de texte. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).TextFrame2.HorizontalAnchor = msoHorizontalAnchorMixed

MarginBottom Cette propriété renvoie ou définit la distance (en points) entre le bas du cadre de texte et le bas du rectangle inscrit de la forme qui contient le texte. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).TextFrame2.MarginBottom = 6

MarginLeft Cette propriété renvoie ou définit la distance (en points) entre le bord gauche du cadre de texte et le bord gauche du rectangle inscrit de la forme qui contient le texte. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).TextFrame2.MarginLeft = 6

MarginRight Cette propriété renvoie ou définit la distance (en points) entre le bord droit du cadre de texte et le bord droit du rectangle inscrit de la forme qui contient le texte. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).TextFrame2.MarginRight = 6

MarginTop Cette propriété renvoie ou définit la distance (en points) entre le haut du cadre de texte et le haut du rectangle inscrit de la forme qui contient le texte. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).TextFrame2.MarginTop = 6

NoTextRotation Indique s’il faut faire pivoter le texte à l’aide de la rotation TextFrame2 . L’une des constantes MsoTriState. Lecture-écriture.

ActiveWindow.RangeFromPoint.TextFrame2.NoTextRotation = msoTrue

Orientation Renvoie ou définit l’orientation du texte. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).TextFrame2.Orientation = msoTextOrientationMixed

Parent Renvoie l’objet parent du cadre de texte spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.TextFrame2.Parent

Ruler Cette propriété renvoie un objet Ruler2 qui représente la règle utilisée pour le texte spécifié. En lecture seule.

Dim rlrRuler As Office.Ruler2
Set rlrRuler = ActivePresentation.Slides(1).Shapes(1).TextFrame2.Ruler

TextRange Renvoie un objet TextRange2 (PowerPoint) qui représente le texte du cadre de texte spécifié. En lecture seule.

Dim tr2TextRange As Office.TextRange2
Set tr2TextRange = ActivePresentation.Slides(1).Shapes(1).TextFrame2.TextRange

ThreeD Renvoie un objet ThreeDFormat qui représente la mise en forme en trois dimensions de la forme parente. En lecture seule.

Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = ActiveWindow.RangeFromPoint.TextFrame2.ThreeD

VerticalAnchor Renvoie ou définit l’alignement vertical du texte dans un cadre de texte. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(1).TextFrame2.VerticalAnchor = msoVerticalAnchorMixed

WordWrap Détermine si le texte revient automatiquement à la ligne pour s’intégrer dans la forme. Lecture-écriture.

ActiveWindow.RangeFromPoint.TextFrame2.WordWrap = msoTrue