Méthode TextRange.RotatedBounds (PowerPoint)

Renvoie les coordonnées des sommets du cadre de texte englobant pour la plage de texte indiquée.

Syntaxe

expression. RotatedBounds( _X1_, _Y1_, _X2_, _Y2_, _X3_, _Y3_, _X4_, _Y4_ )

expression Variable qui représente un objet TextRange .

Paramètres

Nom	Requis/Facultatif	Type de données	Description
X1, Y1	Obligatoire	Unique	Renvoie la position (en points) du premier sommet du cadre de texte englobant dans la plage de texte indiquée.
X2, Y2	Obligatoire	Unique	Renvoie la position (en points) du deuxième sommet du cadre de texte englobant dans la plage de texte indiquée.
X3, Y3	Obligatoire	Unique	Renvoie la position (en points) du troisième sommet du cadre de texte englobant dans la plage de texte indiquée.
X4, Y4	Obligatoire	Unique	Renvoie la position (en points) du quatrième sommet du cadre de texte englobant dans la plage de texte indiquée.

Exemple

Cet exemple utilise les valeurs renvoyées par les arguments de la méthode RotatedBounds pour dessiner une forme libre, dont les dimensions sont celles du cadre de délimitation du texte pour le troisième mot de la plage de texte dans la première forme de la première diapositive de la présentation active.

Dim x1 As Single, y1 As Single
Dim x2 As Single, y2 As Single
Dim x3 As Single, y3 As Single
Dim x4 As Single, y4 As Single
Dim myDocument As Slide

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(1).TextFrame.TextRange.Words(3).RotatedBounds _
    x1, y1, x2, y2, x3, y3, x4, y4

With myDocument.Shapes.BuildFreeform(msoEditingCorner, x1, y1)
    .AddNodes msoSegmentLine, msoEditingAuto, x2, y2
    .AddNodes msoSegmentLine, msoEditingAuto, x3, y3
    .AddNodes msoSegmentLine, msoEditingAuto, x4, y4
    .AddNodes msoSegmentLine, msoEditingAuto, x1, y1
    .ConvertToShape.ZOrder msoSendToBack
End With

Voir aussi

Objet TextRange

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.