TextRange. BoundTop,, propriété (Publisher)TextRange.BoundTop property (Publisher)

Renvoie une valeur unique qui indique la distance, exprimée en points, entre le bord supérieur de la page la plus haute et le bord supérieur du cadre englobant de la plage de texte spécifiée.Returns a Single indicating the distance, in points, from the top edge of the topmost page to the top edge of the bounding box for the specified text range. En lecture seule.Read-only.

SyntaxeSyntax

expression. BoundTop,expression.BoundTop

expression Variable qui représente un objet TextRange .expression A variable that represents a TextRange object.

Valeur renvoyéeReturn value

UniqueSingle

ExempleExample

L’exemple suivant affiche la position, la largeur et la hauteur de la zone englobant le texte dans la première forme de la composition active.The following example displays the position, width, and height of the bounding box surrounding the text in the first shape on page one of the active publication.

Dim rngText As TextRange 
Dim strMessage As String 
 
Set rngText = ActiveDocument.Pages(1) _ 
 .Shapes(1).TextFrame.TextRange 
 
With rngText 
 strMessage = "Text frame information" & vbCrLf _ 
 & " Distance from left edge of page: " _ 
 & .BoundLeft & " points" & vbCrLf _ 
 & " Distance from top edge of page: " _ 
 & .BoundTop & " points" & vbCrLf _ 
 & " Width: " & .BoundWidth & " points" & vbCrLf _ 
 & " Height: " & .BoundHeight & " points" 
End With 
 
MsgBox strMessage

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.