Classe TextFrame (PowerPoint VBA)

La classe TextFrame représente le cadre de texte d'un objet Shape. Contient le texte dans le cadre de texte ainsi que les propriétés et les méthodes qui contrôlent l’alignement et l’ancrage du cadre de texte.

Set

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

Dim tfe as TextFrame
Set tfe = ActiveWindow.RangeFromPoint.TextFrame

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

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).TextFrame.AutoSize = ppAutoSizeMixed

HasText Renvoie une valeur indiquant si du texte est associé à la forme spécifiée. En lecture seule.

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

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

ActivePresentation.Slides(1).Shapes(1).TextFrame.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).TextFrame.MarginBottom = 5

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).TextFrame.MarginLeft = 5

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).TextFrame.MarginRight = 5

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).TextFrame.MarginTop = 5

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

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

Parent Renvoie l’objet parent de l’objet spécifié.

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

Ruler Renvoie un objet Ruler qui représente la règle du texte spécifié. En lecture seule.

Dim rlrRuler As Ruler
Set rlrRuler = ActivePresentation.Slides(1).Shapes(1).TextFrame.Ruler

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

Dim treTextRange As TextRange
Set treTextRange = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange

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

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

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

ActiveWindow.RangeFromPoint.TextFrame.WordWrap = msoTrue