Propriété TextFrame2.AutoSize (Office)
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.
Syntaxe
expression. Autosize
Expression Expression qui renvoie un objet TextFrame2 .
Remarques
La valeur de la propriété AutoSize peut être l’une des constantes MsoAutoSize suivantes :
- msoAutoSizeMixed
- msoAutoSizeNone
- msoAutoSizeShapeToFitText
- msoAutoSizeTextToFitShape
Exemple
Le code suivant indique comment adapter la taille du texte du titre sur la première diapositive au cadre de texte qui le contient.
Dim pptSlide As Slide
Set pptSlide = ActivePresentation.Slides(1)
With pptSlide.Shapes(1)
If .TextFrame2.TextRange.Characters.Count < 50 Then
.TextFrame2.AutoSize = msoAutoSizeTextToFitShape
End If
End With
Voir aussi
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.